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Wstęp 


Język programowania Forth jest zaliczany do „asemblerowych” języków 
wysokiego poziomu. Umożliwia on programowanie strukturalne zbliżone do 
programowania w języku maszynowym i z tego względu jest często wy- 
korzystywany jako narzędzie do programowania systemowego. Jedną z 
głównych zalet języka Forth jest jego rozbudowywalność, przejawiająca się 
możliwością definiowania w nim nowych operatorów i instrukcji, w tym 
operatorów ułatwiających posługiwanie się rozkazami maszynowymi. 

Forth jest językiem interakcyjnym, co oznacza, że polecenia wykona- 
nia operacji — pochodzące z klawiatury terminala — są natychmiast realizo- 
wane. Odbywa się to bez charakterystycznego dla większości innych języków, 
czasochłonnego procesu kompilacji i konsolidacji. 

Forth występuje w kilku dialektach, z których najbardziej rozpo- 
wszechniony jest fig-Forth. Poza nim na uwagę zasługują poly-Forth, Forth-79 
i Forth-83. Wszystkie te dialekty łączy wspólna koncepcja i biegłe opanowanie 
jednego z nich wystarcza do samodzielnego posłużenia się dowolnym z pozos- 
tałych. 

Niniejsze opracowanie jest poświęcone prezentacji dialektu fig-Forth. 
W kolejnych rozdziałach przedstawiono strukturę procesora języka Forth, 
zasady definiowania operatorów i instrukcji, tworzenia podsłowników i kon- 
struowania programów hybrydowych. W celu ułatwienia posługiwania się 
tekstem w części II zamieszczono opisy operatorów w porządku alfabetycznym 
— wyznaczonym przez kod ASCII — a na końcu pracy ich indeks. 

Należy oczekiwać, że częste odwoływanie się do tych opisów powinno 
znacznie ułatwić studiowanie tekstu. 


Część I 


Opis języka 


1. Pojęcia podstawowe 


Program napisany w języku Forth składa się z sekwencji słów. Słowa składają 
się ze spójnych ciągów znaków różnych od spacji, a ogranicznikiem słowa jest 
spacja, znak o kodzie zero albo powrót karetki. Grupy słów są najczęściej 
łączone w wiersze, a wiersze umieszczane w pamięci zewnętrznej w postaci tzw. 
ekranów. Każdy ekran składa się z 1024 znaków zgrupowanych w 16 wierszy 
po 64 znaki. Wiersze są numerowane od 0 do 15. 

W repertuarze słów języka Forth znajduje się słowo, którego zinter- 
pretowanie umożliwia wykonanie programu zapamiętanego w ekranie. Po- 
nieważ Forth jest językiem interakcyjnym, możliwe jest również interpreto- 
wanie słów wprowadzanych na bieżąco z klawiatury terminala. Należą do nich 
m.in. słowa umożliwiające tworzenie i modyfikowanie zawartości ekranów. 

Zinterpretowanie słowa powoduje wykonanie określonej operacji. 
Odbywa się to pod nadzorem procesora języka Forth, tj. tego czynnika, który 
nadzoruje interpretację oraz zarządza zasobami niezbędnymi do jej wykona- 
nia. Do zasobów tych należą przede wszystkim: słownik operatorów — 
— zawierający definicje wszystkich dostępnych operacji oraz dwa stosy: stos 
parametrów — na którym są umieszczane argumenty 1 rezultaty operacji oraz 
stos powrotów — wykorzystywany głównie przez interpreter, ale również 
nadający się do przechowywania danych. 

Ciąg słów przekazywanych do interpretacji jest nazywany strumieniem 
wejściowym. Źródłem strumienia wejściowego może być ekran pamięci ze- 
wnętrznej albo klawiatura terminala. Każde słowo strumienia wejściowego jest 
poddawane natychmiastowej interpretacji. Przebieg interpretacji, nadzorowany 
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przez procesor języka Forth, zależy od chwilowego stanu interpretera. Inter- 
preter może znajdować się w stanie wykonywania albo w stanie definiowania. 
Bezpośrednio po zainicjowaniu procesora, interpreter znajduje się w stanie 
wykonywania, a strumień wejściowy jest związany z klawiaturą terminala. 

Niezależnie od stanu interpretera, zinterpretowanie najbliższego słowa 
znajdującego się w strumieniu wejściowym polega na wyszukaniu w słowniku 
operatorów, definicji operacji identyfikowanej przez dane słowo. Jeśli w słow- 
niku nie zostanie znaleziona poszukiwana definicja, to wymaga się, aby 
interpretowane słowo było liczbą. W przeciwnym razie jest sygnalizowany 
błąd, rozpatrywane słowo jest ignorowane, a strumień wejściowy zostaje 
związany z klawiaturą terminala. 

Jeśli interpreter znajduje się w stanie wykonywania, a interpretowane 
słowo identyfikuje operator, to jest wykonywana operacja związana z tym 
operatorem. Jeśli natomiast interpretowane słowo indentyfikuje liczbę, to jest 
wykonywana operacja polegająca na umieszczeniu na stosie parametrów 
procesora danej liczbowej, która ma wartość rozpatrywanej liczby. 

Jeśli interpreter znajduje się w stanie definiowania, to sposób interpre- 
towania słów zależy od tego, czy identyfikują one operatory czynne czy bierne. 
Operatory czynne są związane z operacjami czynnymi — realizowanymi w obu 
stanach interpretera, natomiast operatory bierne są związane z operacjami 
biernymi — realizowanymi jedynie wtedy, kiedy interpreter znajduje się 
w stanie wykonywania. 

Jeśli interpreter znajduje się w stanie definiowania, a interpretowane słowo 
identyfikuje operator czynny, to jest wykonywana operacja związana z tym 
operatorem. Jeśli interpretowane słowo identyfikuje operator bierny, to 
w słowniku operatorów zostaje umieszczony adres pola kodu tego operatora. 
Adres ten będzie nazywany wskazaniem operatora*). Jeśli interpretowane słowo 
identyfikuje liczbę, to w słowniku operatorów jest umieszczone wskazanie 
operatora LIT, a za nim dana słowowa mająca wartość wspomnianej liczby. 
W przypadku liczby podwojonej dokładności, zajmującej w pamięci operacyj- 
nej dwa słowa, umieszcza się w słowniku wskazanie operatora LIT, za nim 
słowo zawierające mniej znaczącą część liczby, ponownie wskazanie operatora 
LIT, a za nim słowo zawierające bardziej znaczącą część liczby. 

Ze względu na to, że zinterpretowanie słowa, które nie jest operatorem 
ale ma postać liczby, powoduje wykonanie ustalonej, opisanej wyżej operacji, 
dogodnie jest uznawać takie słowa za niejawnie zdefiniowane operatory bierne 
związane z opisanymi wyżej operacjami. Z tego względu nic nie stoi na 
przeszkodzie, aby rozpatrywane liczby także nazywać operatorami. W tym 
sensie można np. mówić o wykonaniu operacji 20. 


*) Zgodnie z przyjętą definicją, zwrot "umieszczenie wskazania operatora” jest skrótem od 
"umieszczenie adresu pola kodu operatora”. 
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Poprzestając na tym omówieniu zasad interpretowania słów strumie- 
nia wejściowego pozostaje zwrócić uwagę na to, iż niekiedy zinterpretowanie 
słowa powoduje wprowadzenie i wykorzystanie kolejnej porcji znaków stru- 
mienia bez skierowywania jej do interpretacji. Taki sposób postępowania 
umożliwia przekazywanie argumentów operatorów bezpośrednio w samym 
strumieniu wejściowym. 


Przykłady 


a. Interpretowanie strumienia wejściowego pochodzącego z klawiatury termi- 
nala 

( PRINT ) : PRINT 

DUP .” TOP=" . ; 

20 PRINT 

Jeśli trzy przytoczone wiersze stanowią strumień wejściowy pocho- 
dzący z terminala, to przebieg interpretacji jest następujący: 

© Napis ( zostanie uznany za słowo identyfikujące operator czynny 
( (left-paren). Argumentem tego operatora jest ciąg znaków strumienia wejścio- 
wego aż do najbliższego znaku ) włącznie. Ponieważ wykonanie operacji 
(sprowadza się do zignorowania tego ciągu znaków, konstrukcję ( PRINT ) 
można uznać za komentarz. £ tego powodu pierwszy napis PRINT nie jest 
uznawany za słowo i nie podlega interpretacji. 

e Napis : zostanie uznany za słowo identyfikujące operator czynny 
: (colon), Argumentem tego operatora, wykorzystywanego do definiowania 
nowych operatorów, jest najbliższe słowo strumienia wejściowego, w danym 
przypadku słowo PRINT. Wykonanie operacji : spowoduje umieszczenie 
w słowniku nagłówka definicji operatora PRINT i ustawienie interpretera 
w stan definiowania. 

e Napis DUP zostanie uznany za słowo identyfikujące operator 
bierny DUP. Ponieważ interpreter znajduje się w stanie definiowania, zinter- 
pretowanie słowa DUP spowoduje umieszczenie w słowniku wskazania 
definicji operatora DUP. Wskazanie to zostanie umieszczone bezpośrednio za 
nagłówkiem definicji operatora PRINT. 

e Napis .” zostanie uznany za słowo identyfikujące operator czynny .” 
(dot-quote). Mimo iż interpreter znajduje się w stanie definiowania, nastąpi 
wykonanie operacji .”. Stanie się tak, ponieważ .” jest operatorem czynnym. 
Ponieważ argumentem operatora .” jest ciąg znaków strumienia wejściowego 
aż do znaku ” włącznie, najbliższym interpretowanym słowem nie będzie TOP 
lecz . (kropka). W następstwie wykonania operacji .” w słowniku operatorów 
zostanie umieszczone wskazanie pomocniczego operatora (.”), a za nim tekst 


12 1. Pojęcia podstawowe 


poprzedzony licznikiem znaków, składający się z 6 znaków występujących 
między spacją kończącą napis .” a najbliższym znakiem ”. Podobnie jak 
wskazanie powstałe ze zinterpretowania słowa DUP, rozszerzą one definicję 
operatora PRINT. 

e Napis . zostanie uznany za słowo identyfikujące operator bierny 
. (dot). Spowoduje to umieszczenie w słowniku wskazania definicji tego 
operatora. 

e Napis ; zostanie uznany za słowo identyfikujące operator czynny 
; (semicolon). Spowoduje to wykonanie operacji ; mimo iż interpreter znajduje 
się w stanie definiowania. Rezultaiem wykonania tej operacji będzie umieszcze- 
nie w słowniku wskazania operatora pomocniczego ;S i zakończenie definio- 
wania operatora PRINT. Ponadto interpreter zostanie ustawiony w stan 
wykonywania. 

e Napis 20 zostanie uznany za słowo identyfikujące liczbę. Spowoduje 
to umieszczenie na stosie parametrów danej słowowej o wartości 20. 

e Napis PRINT zostanie uznany za słowo identyfikujące operator 
PRINT. Ponieważ definicja operatora PRINT została właśnie utworzona, 
użycie słowa PRINT w strumieniu wejściowym jest poprawne i powoduje 
wykonanie operacji PRINT. Jak wynika z przytoczonego opisu, definicja ta 
składa się z nagłówka, wskazania operatora DUP, wskazania operatora (.”), za 
którym następuje tekst TOP = , wskazania operatora . oraz wskazania 
operatora ;S. Zinterpretowanie takiej definicji spowoduje: powielenie — na 
stosie parametrów — danej o wartości 20 (operacja DUP), wyprowadzenie 
tekstu TOP = zawartego w definicji (operacja (.”))) wyprowadzenie danej 
znajdującej się na stosie parametrów (operacja .) i powrót do dalszego 
interpretowania strumienia wejściowego (operacja ;S). Łącznie spowoduje to 
wyprowadzenie napisu 

TOP = 20 
zakończonego parą liter OK (all-right). Napis ten wyraża gotowość procesora 
do kontynuowania interpretacji. 

b. Interpretowanie strumienia wejściowego pochodzącego z pamięci zewnę- 
trznej. 

Jeśli przyjąć, że dwa pierwsze wiersze strumienia wejściowego z po- 
przedniego przykładu zostały umieszczone w ekranie o numerze 127, to 
związanie strumienia wejściowego z klawiaturą terminala i wprowadzenie 
z niej wiersza 

127 LOAD 30 PRINT 
wywoła następujący przebieg interpretacji: 

e Napis 127 zostanie uznany za słowo identyfikujące operację 127. 
Zinterpretowanie tej operacji spowoduje umieszczenie — na stosie parametrów 
— danej o wartości 127. 

e Napis LOAD zostanie uznany za słowo identyfikujące operator 
LOAD. Zinterpretowanie operacji LOAD spowoduje zdjęcie ze stosu parame- 
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trów znajdującej się tam danej i potraktowania jej wartości jako numeru 
ekranu. Następnie dokona się przełączenie strumienia wejściowego z klawia- 
tury na ekran i zinterpretowanie treści ekranu, w tym przypadku o numerze 
127. Po zakończeniu interpretowania ekranu w słowniku pojawi się definicja 
operatora PRINT, po czym nastąpi przełączenie źródła strumienia wejścio- 
wego tak, aby była nim klawiatura. 

o Napis 30 zostanie uznany za słowo identyfikujące operator 30. 
Wykonanie tej operacji spowoduje umieszczenie — na stosie parametrów 
— danej o wartości 30. 

o Napis PRINT zostanie uznany za słowo identyfikujące operację 
PRINT. Wykonanie operacji PRINT spowoduje wyprowadzenie napisu 

TOP = 30 
oraz pary liter OK jak w poprzednim przykładzie. LI 


Najważniejszym elementem procesora języka Forth jest słownik ope- 
ratorów, nazywany krótko słownikiem. To w nim właśnie są zapisane nazwy 
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poszczególnych operatorów oraz określone są czynności wykonywane podczas 
interpretowania poszczególnych słów strumienia wejściowego. Słownik ma 
strukturę drzewiastą i składa się z szeregu podsłowników. Bezpośrednio po 
zainicjowaniu interpretacji składa się on z ustalonego zestawu definicji, ujętego 
w podsłownik o nazwie FORTH. W miarę postępowania interpretacji pod- 
słownik ten może być rozbudowywany przez wprowadzenie nowych definicji. 
Możliwe jest także definiowanie nowych podsłowników. Ta rozbudowywal- 
ność jest jedną z cech wyróżniających Forth wśród innych języków programo- 
wania. Umożliwia ona wzbogacenie podstawowej wersji języka o nowe 
operatory i instrukcje. Stanowi znaczne ułatwienie tworzenia wyspecjalizo- 
wanych zastosowań, zwłaszcza o charakterze systemowym. Nie bez znaczenia 
jest także fakt, że tworzenie wykonywalnego programu w języku Forth odbywa 
się bez konsolidacji. Efektem interakcyjnego wykonania operacji jest bowiem 
utworzenie danej — najczęściej umieszczanej na jednym ze stosów albo 
skompilowanie nowej definicji operatora, tj. umieszczenie jej w słowniku. 

Poza stosami i słownikiem, procesor języka Forth zarządza szeregiem 
innych obszarów pamięci operacyjnej, przedstawionych na rys. 1.1. Nalezą 
do nich: obszar stałych inicjujących — wykorzystywanych w chwili rozpoczę- 
cia pracy procesora, słownik — zawierający definicje operatorów, bufor 
słowa — zawierający kolejno interpretowane słowa strumienia wejściowego, 
bufor liczby — w którym odbywa się kompletowanie cyfr wyprowadzanej danej 
liczbowej, bufor tekstu — najczęściej wykorzystywany przez edytor, bufor 
terminala — w którym są umieszczane wiersze strumienia wejściowego, bufory 
współpracy z pamięcią zewnętrzną i ewentualnie — w okrojonych implemen- 
tacjach — bufor symulowanej pamięci masowej. Adresy poszczególnych obsza- 
rów można uzyskać na stosie parametrów, interpretując słowa lub sekwencje 
słów podane z prawej strony rysunku. 


2. Stos parametrów 


Wymieniony uprzednio stos parametrów jest obszarem pamięci operacyjnej 
wykorzystywanym do przechowywania argumentów i rezultatów operacji. Stos 
ten jest strukturą typu LIFO (last in — first out), co oznacza, że dane są zawsze 
umieszczane na szczycie stosu i tylko ze szczytu są zdejmowane. Stos 
parametrów może pomieścić ograniczoną liczbę danych słowowych, którym 
można nadawać różne interpretacje. Można np. traktować je jak liczby 
całkowite ze znakiem i bez znaku, pary znaków w kodzie ASCII albo dane 
logiczne. Jeśli zaistnieje potrzeba umieszczenia na stosie parametrów danej 
dwusłowowej, to rozbija się ją na dwie dane słowowe i umieszcza na stosie 
w takiej kolejności, aby bardziej znaczące słowo danej znajdowało się bliżej 
wierzchołka stosu. 

W miarę umieszczania na stosie i zdejmowania z niego danych 
słowowych, wierzchołek stosu ulega przesunięciu. Chociaż rzadko jest to 
potrzebne, można określić jego położenie posługując się operatorem SPQ. 
Udostępnia on na stosie parametrów adres ostatniego bajtu pamięci opera- 
cyjnej zajętego przez stos parametrów tuż przed wykonaniem tej operacji. 
Należy nadmienić, że w większości implementacji stos parametrów rozrasta się 
w kierunku niższych adresów pamięci, a więc umieszczenie na stosie nowej 
danej powoduje zmniejszenie wartości adresu określającego wierzchołek stosu. 

Jak już wyjaśniano, zinterpretowanie słowa, któremu nie odpowiada 
definicja słownikowa, a które ma postać liczby, powoduje umieszczenie — na 
stosie parametrów — danej słowowej o wartości tej liczby. W szczególności 
zinterpretowanie pary słów 

20 —50 
spowoduje umieszczenie — na stosie parametrów — danej o wartości 20, 
a następnie danej o wartości —50 (w zapisie uzupełnieniowym do 2). 
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Zinterpretowanie w takiej sytuacji pary słów 

+. 
spowoduje kolejno: zastąpienie pary danych na szczycie stosu daną o wartości 
ich sumy (operacja +) oraz zdjęcie tej danej ze stosu i wyprowadzenie 
(operacja .) Tym samym rezultatem zinterpretowania ciągu słów 

20 —50 + 
będzie wyprowadzenie liczby —30 zakończonej spacją 1 przywrócenie stanu 
stosu parametrów jak przed wykonaniem tej interpretacji. 

Wykonywanie bardziej złożonych działań na stosie parametrów wy- 
maga znajomości sposobu odwzorowywania wyrażeń nawiasowych na wyra- 
żenia w odwrotnej notacji polskiej. Zgodnie z tą notacją działanie takie jak np. 
2 + (3+4) przybiera postać 2 3 4 + *, co oznacza, że na stosie zostają 
umieszczone kolejno dane 2, 3 i 4, następnie wykonana operacja +, a po niej 
operacja *. Wykonanie operacji + powoduje zdjęcie ze stosu danych 4 i 3, 
wykonanie dodawania i umieszczenie na stosie rezultatu 7. Wykonanie operacji 
* powoduje zdjęcie ze stosu danych 7 i 2, wykonanie mnożenia i umieszczenie 
na stosie rezultatu 14. Tym samym, nie posługując się nawiasami, można 
uzyskać ten sam rezultat. Kilka innych przykładów przekształcenia wyrażeń 


algebraicznych w ich równoważniki w notacji odwrotnej przedstawiono na rys. 
2.1. 


Wyrażenie Wyrażenie w notacji 
algebraiczne odwrotnej 

2+5 25 + 

3%* (2+5) 3 25 + «* 
(2+5) * 3 25 + 3 «* 
2-3* (4 + 5) 234 5 + «x - 
(2 + 3) / (4 - 5) 23 + 4 5 - / 
2+(3-4x*95) 234 5 * - + 


2.1. Wyrażenia algebraiczne w notacji odwrotnej 


Umieszczenie na stosie parametrów, danych podwojonej dokładności, 
wymaga zastosowania zmodyfikowanego zapisu liczb. Słowa wyrażające takie 
liczby powinny zawierać co najmniej jeden znak . (kropka), umieszczony przed 
wszystkimi cyframi liczby, w ich obrębie albo za wszystkimi cyframi. 
W szczególności, zinterpretowanie pary słów 

20. —5.0 
spowoduje umieszczenie — na stosie parametrów — danej dwusłowowej 
o wartości 20, a następnie danej dwusłowowej o wartości —50. Zsumowanie 
takich danych i wyprowadzenie rezultatu wymaga użycia operatorów przysto- 
sowanych do wykonywania operacji na danych podwojonej dokładności, 
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a mianowicie: operatora D+ (dla dodawania) i D. (dla wyprowadzania). 
Oznacza to, że wykonanie przykładowej sekwencji 

20. —50 D+ D. 
powoduje zsumowanie umieszczonych na stosie danych dwusłowowych 
1 wyprowadzenie rezultatu — 30. 

Gdyby zamiast przytoczonej sekwencji posłużono się sekwencją 

20. —50 + 
(z operacjami dla danych pojedynczej dokładności), to operacja + dotyczyłaby 
jedynie dwóch jednosłowowych części danej dwusłowowej o wartości —50. 
Ponieważ dana dwusłowowa o tej wartości jest reprezentowana na stosie jako 
para danych słowowych o wartościach —50 i —1, rezultatem operacji byłoby 
wyprowadzenie liczby —51. Na stosie pozostałyby jeszcze dane słowowe 
o wartościach 20 i 0. Wynika to z faktu, że procesor nie rozpoznaje typu 
danych znajdujących się na stosie, a sposób operowania tymi danymi leży 
całkowicie w gestii programującego. 


Przykład 


Zinterpretowanie sekwencji słów 

20. 30 0 D+ ... 
spowoduje wykonanie następujących czynności: 

e Umieszczenie — na stosie parametrów — danej dwusłowowej 
o wartości 20. 

e Umieszczenie — na stosie parametrów — danej słowowej o war- 
tości 30. 

e Umieszczenie — na stosie parametrów — danej słowowej o war- 
tości O. 

e Potraktowanie danych słowowych o wartości 30 i O jak danej 
dwusłowowej o wartości 30 i zsumowanie jej z daną dwusłowową o wartości 
20. 

e Potraktowanie bardziej znaczącej części danej dwusłowowej o 
wartości 50 jako danej słowowej i wyprowadzenie jej w postaci liczby O. 

e Potraktowanie mniej znaczącej części danej dwusłowowej jako 
danej słowowej i wyprowadzenie liczby 50. m 


3. Operacje stosowe 1 słownikowe 


Większość operacji języka Forth dotyczy stosu parametrów. Z tego względu 
w opisach operacji jest stosowana konwencja przytaczania stanu szczytowych 
elementów tego stosu przed i po wykonaniu operacji. Zgodnie z tą konwencją, 
zapis taki jak np. 

(ab——c) 
oznacza, że argumentami operacji są dwa szczytowe elementy stosu parame- 
trów: a i b, które po wykonaniu operacji zostaną zastąpione elementem c. 
O tym czy spowoduje to zwiększenie, czy zmniejszenie rozmiaru stosu 
parametrów, decyduje charakter danych. Jeśli np. dana a jest dwusłowowa, 
a dane b i c są słowowe, to stos parametrów skróci się o jedno słowo. - 

Dysponując przytoczonym zapisem argumentów i rezultatów operacji, 
określającym zmiany dokonujące się na stosie parametrów, można przystąpić 
do krótkiego przeglądu ważniejszych operacji języka Forth. Na wstępie 
zostaną omówione podstawowe operacje wejścia/wyjścia i operacje stosowe, 
ponieważ ułatwią one konstruowanie przykładów. Następnie zostaną przedsta- 
wione operacje arytmetyczne, pamięciowe, relacje, operacje logiczne i operacje 
słownikowe. Pełen wykaz operacji zamieszczono w części II. 


Operacje wejścia/wyjścia 


Operacje wejścia/wyjścia służą do wprowadzania i wyprowadzania liczb 
i znaków oraz do sprawdzania stanu klawiatury terminala. Podstawowymi 
operacjami wejścia/wyjścia są: 

(wyprowadź-daną-słowową-jako-liczbę), D. (wyprowadź-daną-dwusłowo- 
wą-jako-liczbę),; .R _ (wprowadź-daną-słowową-jako-liczbę-wyrównaną-pra- 
wostronnie),;  D.R _ (wyprowadź-daną-dwusłowową-jako-liczbę-wyrówna- 
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ną-prawostronnie), EMIT (wyprowadź-znak), CR (przejdź-do-nowego-wier- 
sza), KEY (wprowadź-znak), TERMINAL (zbadaj-bufor-terminala). 


(a—-) 


Wykonanie operacji . powoduje zdjęcie — ze stosu parametrów — da- 
nej słowowej a i wyprowadzenie jej jako liczby zakończonej jedną 
spacją. Jeśli wyprowadzana dana jest ujemna, to wyprowadzana liczba 
zaczyna się od znaku — (minus). 


D. (a -—-) 


R ( 


D.R 


EMIT 


CR 


Wykonanie operacji D. powoduje zdjęcie — ze stosu parametrów 
— danej dwusłowowej a i wyprowadzenie jej jako liczby zakończonej 
jedną spacją. Jeśli wprowadzana dana jest ujemna, to wyprowadzana 
liczba zaczyna się od znaku — (minus). 


an —— ) 

Wykonanie operacji .R powoduje wyprowadzenie danej słowowej a, 
jako liczby wyrównanej prawostronnie, w polu wyjściowym o szero- 
kości n. 


(an -—) 
Wykonanie operacji D.R powoduje wyprowadzenie danej dwusłowo- 
wej a, jako liczby wyrównanej prawostronnie, w polu wyjściowym 
o szerokości n. 

(a —-) 
Wykonanie operacji EMIT powoduje zdjęcie — ze stosu para- 
metrów — danej słowowej a i wyprowadzenie znaku w kodzie ASCII, 
reprezentowanego w dolnym bajcie tej danej. 


(—-) 


Wykonanie operacji CR powoduje wyprowadzenie znaków powodują- 
cych przejście do nowego wiersza. 


?TERMINAL 


(--t) 

(--]) 

Wykonanie operacji TERMINAL powoduje rozpatrzenie stanu bu- 
foru klawiatury terminala. Jeśli bufor ten zawiera jeszcze nie wprowa- 
dzony znak, to na stosie parametrów zostanie umieszczona dana 
to wartości 1. W przeciwnym razie zostanie tam umieszczona dana 
f o wartości O. 


Przykłady 


a. Wyprowadzenie bardziej znaczącej i mniej znaczącej części danej dwusłowo- 
wej znajdującej się na szczycie stosu parametrów 
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b. Wyprowadzenie bardziej znaczącej i mniej znaczącej części danej dwusłowo- 
wej w odrębnych wierszach 
CR . 
c. Wyprowadzenie danej dwusłowowej znajdującej się na szczycie stosu 
parametrów, jako liczby umieszczonej prawostronnie w polu o szerokości 
9 znaków 
9 DR © 


Operacje stosowe 


Operacje stosowe służą do wykonywania czynności dotyczących tych elemen- 
tów stosu parametrów i stosu powrotów, które znajdują się w bezpośredniej 
bliskości ich szczytów. Do tej grupy operacji należą: DROP (usuń-ze-stosu), 
DUP (powiel-na-stosie), SWAP (zamień-miejscami), OVER (powiel-poprzedni), 
ROT (dokonaj-obrotu), > R (przenieś-na-stos-powrotów), R> (zdejmij-ze-sto- 
su-powrotów), R (skopiuj-ze-stosu-powrotów). 


DROP (a ——) 


Wykonanie operacjj DROP powoduje usunięcie — ze stosu para- 
metrów — danej słowowej a. 
DUP (a—— aa) 


Wykonanie operacji DUP powoduje powielenie — na stosie para- 
metrów — danej słowowej a. 

SWAP (ab —— ba) 
Wykonanie operacji SWAP powoduje zamianę miejscami — na stosie 
parametrów — danych słowowych a i D. 

OVER (ab —— aba) 
Wykonanie operacji OVER powoduje powielenie — na stosie para- 
metrów — danej słowowej a. 

ROT (abc——bca) 
Wykonanie operacjj ROT powoduje przemieszczenie — na stosie 
parametrów — danych słowowych a, b i c w taki sposób, aby przyjęły 
kolejność b, ci a 

>R (a -——) 
Wykonanie operacji > R powoduje przeniesienie danej słowowej a ze 
stosu parametrów na stos powrotów. 

R> (—— a) 
Wykonanie operacji R> powoduje przeniesienie danej słowowej a ze 
stosu powrotów na stos parametrów. 

R (—-a) 
Wykonanie operacji R powoduje skopiowanie danej słowowej a ze 
stosu powrotów na stos parametrów. 
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Przykłady 


a. Umieszczenie dwóch danych na stosie, zamiana miejscami i wyprowadzenie 
w takiej kolejności, w jakiej były na nim umieszczane 
. 30 40 SWAP 

b. Umieszczenie dwóch danych na stosie i wyprowadzenie bez usuwania ich ze 
stosu 

30 DUP . 40 DUP 
c. Umieszczenie trzech danych na stosie i wyprowadzenie w takiej kolejności, 
w jakiej były na nim umieszczane 

30 40 50 SWAP ROT 
d. Wyprowadzenie sumy i różnicy dwóch danych 

30 40 OVER OVER + . - .. (m 

Odrębną grupę operacji stosowych stanowią te, które umożliwiają 
wykonywanie działań dotyczących stosu jako całości. Ponieważ nieumiejętne 
ich użycie może spowodować załamanie się interpretacji, należy stosować je ze 
szczególną ostrożnością. Do tej grupy operacji należą: SP! (wyzeruj-stos- 
-parametrów), RP! (wyzeruj-stos-powrotów), SpQ (określ-adres-szczytu-stosu- 
-parametrów), RPQ (określ-adres-szczytu-stosu-powrotów), SO (określ-adres- 
-szczytu-pustego-stosu-parametrów), RO (określ-adres-szczytu-pustego-stosu- 
-powrotów). 
SP!  ( cały-stos — — ) 

Wykonanie operacji SP! powoduje usunięcie ze stosu parametrów 

wszystkich znajdujących się na nim danych. 
RP! (——) 

Wykonanie operacji RP! powoduje usunięcie ze stosu powrotów 

wszystkich znajdujących się na nim danych. 


SPA (—-— a) 
Wykonanie operacji SPQ powoduje umieszczenie — na stosie para- 
metrów — adresu szczytu stosu parametrów tuż przed wykonaniem 


operacji SPQ. 


RPQ (—-— a) 
Wykonanie operacji RPQ powoduje umieszczenie — na stosie para- 
metrów — adresu szczytu stosu powrotów tuż przed wykonaniem 
operacji RPQ. 

SO (——a) 
Wykonanie operacji SO powoduje umieszczenie — na stosie para- 


metrów — adresu danej słowowej, której wartością jest adres szczytu 
pustego stosu parametrów. 


RO (—-—a) 
Wykonanie operacji RO powoduje umieszczenie — na stosie para- 
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metrów — adresu danej słowowej, której wartością jest adres szczytu 
pustego stosu parametrów. 


Przykład 


Wyprowadzenie liczby danych słowowych znajdujących się na stosie para- 
metrów. 

SPQ SO Q SWAP — 2/. 

e Wykonanie operacji (© powoduje potraktowanie danej słowowej, 
znajdującej się na szczycie stosu parametrów, jako adresu słowa i zastąpienie 
tego adresu tym słowem. [] 


Operacje arytmetyczne słowowe 


Operacje arytmetyczne słowowe służą do wykonywania działań arytmetycznych 
na danych słowowych znajdujących się na stosie parametrów. Podstawowymi 
operacjami arytmetycznymi są + (plus), — (minus), + (gwiazdka), / (kre- 
ska-ukośna), 1+ (jeden-plus), 2+ (dwa-plus), MINUS (zmień-znak), ABS 
(wyznacz-wartość-bezwzględną), MOD (wyznacz-resztę-z-dzielenia). Wszystkie 
przytoczone tu operacje dotyczą danych słowowych. 


+ (ab-——c) 
Wykonanie operacji + powoduje zastąpienie — na stosie parame- 
tów — danych słowowych a i b ich słowową sumą c = a + b. 
— (ab—— c) 
Wykonanie operacji — powoduje zastąpienie — na stosie parame- 
trów — danych słowowych a i b ich słowową różnicą c = a — b. 


x (ab——c) 


Wykonanie operacji * powoduje zastąpienie — na stosie parame- 

trów — danych słowowych a i b ich słowowym iloczynem c = a * b. 
| (ab--c) 

Wykonanie operacji / powoduje zastąpienie — na stosie parame- 

trów — danych słowowych a i b ich słowowym ilorazem c = ab. 
1+ (a—-b) 

Wykonanie operacji 1+ powoduje zastąpienie — na stosie parame- 

trów — danej słowowej a taką daną słowową b, że b = a + 1. 
2+ (a—-b) 


Wykonanie operacji 2+ powoduje zastąpienie — na stosie parame- 
trów — danej słowowej a taką daną słowową b, że b = a + 2. 
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MINUS (a —— b) 
Wykonanie operacjj MINUS powoduje zastąpienie — na stosie 
parametrów — danej słowowej a taką daną słowową b, że b = —a. 
ABS (a —— b) 
Wykonanie operacji ABS powoduje zastąpienie — na stosie parame- 
trów — danej słowowej a taką daną słowową b, że b = lal. 
MOD (ab -—-— c) 


Wykonanie operacji MOD powoduje zastąpienie — na stosie parame- 
trów — danych słowowych aib taką daną słowową c,żec = a modb. 


Przykłady 


n(n + 1) 


a. Wyznaczenie wartości wyrażenia w = 2 


zgodnie ze schematem 
(n ——w) 


DUP 1+ +» 2/ 
b. Wyznaczenie wartości wyrażenia w = x* + px + q zgodnie ze schema- 
tem (pq x —— w) 

ROT OVER + * + 
c. Wyznaczenie reszty z dzielenia liczby 1024 przez 7 

1024 7 MOD [] 


Operacje arytmetyczne dwusłowowe 


Operacje arytmetyczne dwusłowowe służą do wykonywania działań arytme- 
tycznych na danych dwusłowowych znajdujących się na stosie parametrów. 
Podstawowymi operacjami tej grupy są: D+  (dodaj-dane-dwusłowowe), 
DMINUS (zmień-znak-danej-dwusłowowej), DABS (wyznacz-wartość-bez- 
względną-danej-dwusłowowej). 


D+ (ab —— c) 
Wykonanie operacji D+ powoduje zastąpienie — na stosie parame- 
trów — danych dwusłowowych a i b ich dwusłowową sumą c=a + b. 
DMINUS (a —— b) 
Wykonanie operacji DMINUS powoduje zastąpienie — na stosie 
parametrów — danej dwusłowowej a taką daną dwusłowową b, że 
b=—a. 
DABS (a —— b) 
Wykonanie operacji DABS powoduje zastąpienie — na stosie para- 


metrów — danej dwusłowowej a taką daną dwusłowową b, że b = |a|. 
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Przykłady 


a. Zwiększenie o 2 danej dwusłowowej znajdującej się na szczycie stosu 
parametrów 

2 0 D+ 
b. Zwiększenie o 2 danej dwusłowowej znajdującej się na stosie parametrów 
poniżej danej słowowej 

ROT ROT 2 0 D+ ROT M 


Operacje pamięciowe 


Operacje pamięciowe służą do wykonywania działań dotyczących dowolnych 
obszarów pamięci operacyjnej. Podstawowymi operacjami tej grupy są: © 
(pobierz-słowo), ! (zapamiętaj-słowo), CQ (pobierz-znak), C! (zapamiętaj-znak), 
CMOYVE (przepisz-ciąg-znaków), FILL (wypełnij-ciągiem-znaków). 


© (a--b) 
Wykonanie operacji (© powoduje zastąpienie — na stosie parametrów 
— adresu a danej słowowej tą daną słowową b. 


| (ba —-—) 
Wykonanie operacji ! powoduje umieszczenie pod adresem a danej 
słowowej b. 


Ca (a--b) 
Wykonanie operacji CQ, powoduje zastąpienie — na stosie parame- 
trów — adresu a danej bajtowej daną słowową b, której górny bajt ma 
wartość 0, a dolny jest identyczny z bajtem spod podanego adresu a. 


C! (ba ——) 
Wykonanie operacji C! powoduje umieszczenie pod adresem a danej 
bajtowej reprezentowanej w dolnym bajcie danej słowowej b. 


CMOVE (abn —— ) 
Wykonanie operacji CMOVE powoduje przepisanie bajt po bajcie n 
bajtów z pola pamięci operacyjnej rozpoczynającego się od adresu a 
do pola zaczynającego się od adresu b. 


FILL (anb —— ) 
Wykonanie operacji FILL powoduje umieszczenie w polu pamięci 
operacyjnej, rozpoczynającym się od adresu a, n znaków identycznych 
ze znakiem reprezentowanym w dolnym bajcie danej słowowej b. 
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Przykłady 


a. Zastąpienie litery, występującej w pamięci operacyjnej pod adresem 2000, 
literą następną 
2000 DUP CG 1+ SWAP C! 
b. Umieszczenie w polu pamięci operacyjnej, zaczynającym się od adresu 300, 
19 znaków identycznych ze znakiem znajdującym się pod adresem 300. 
300 DUP 1+ 19 CMOVE CJ 


Relacje 


Relacje są operacjami wykorzystywanymi do porównywania danych. Podsta- 


wowymi relacjami są: < (mniejsze-niż), = (równe), > (większe-niż), 0 = 
= (równe-zero), 0< (mniejsze-niż-zero). 
< (ab -—— 't) 
(ab --f) 
Wykonanie operacji < powoduje wyznaczenie relacji a < bi zastą- 
pienie — na stosie parametrów — danych a i b daną t o wartości 
1 — jeśli relacja jest prawdziwa, albo daną f o wartości O — w 
przeciwnym razie. 
= (ab —— t) 
(ab —-—f) 
Wykonanie operacji = powoduje wyznaczenie relacji a = bi zastą- 
pienie — na stosie parametrów — danych a i b daną t o wartości 
1 — jeśli relacja jest prawdziwa, albo daną f o wartości 0 — w 
przeciwnym razie. 
> (ab —-— 't) 
(ab —— f) 
Wykonanie operacji > powoduje wyznaczenie ralacji a > bi zastą- 
pienie — na stosie parametrów — danych a i b daną t o wartości 
1 — jeśli relacja jest prawdziwa, albo daną f o wartości 0 — w 
przeciwnym razie. 
0= (a—-—t) 
(a-—-f) 
Wykonanie operacji 0= powoduje wyznaczenie relacji a = 01 zastą- 


pienie — na stosie parametrów — danej a daną t o wartości 1 — jeśli 
"relacja jest prawdziwa, albo daną fo wartości O — w przeciwnym razie. 
0< (a—-—t) 
(a—-]f) 


Wykonanie operacji 0< powoduje wyznaczenie ralacji a<0 i zastą- 
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pienie — na stosie parametrów — danej a daną t o wartości 1 — jeśli relacja 
jest prawdziwa, albo daną f o wartości 0 — w przeciwnym razie. 


Przykłady 


a. Określenie, czy dana słowowa znajdująca się pod adresem 200 ma wartość 
ujemną 

200 Q 0< 
b. Określenie identyczności danych słowowych znajdujących się na szczycie 
stosu parametrów i stosu powrotów 

DUP R = D 


Operacje logiczne 


Operacje logiczne służą do wykonywania działań logicznych. Podstawowymi 
operacjami tej grupy są: AND (iloczyn-logiczny), OR (suma-logiczna) i XOR 
(różnica-symetryczna). 


AND (ab —— c) 
Wykonanie operacji AND powoduje zastąpienie — na stosie 
parametrów — danych słowowych a i b ich iloczynem logicznym c, 
wyznaczonym równolegle na wszystkich parach odpowiadających 
sobie bitów danych a i b. 
Zasady wyznaczania iloczynu: 
bit a bit b bit c 


0 0 0 
0 | 0 
l 0 0 
| | | 
OR (ab—-— c) 
Wykonanie operacji OR powoduje zastąpienie — na stosie para- 


metrów — danych słowowych a i b ich sumą logiczną c, wyznaczoną 
równolegle na wszystkich parach odpowiadających sobie bitów da- 
nych a i b. 

Zasady wyznaczania sumy: 


0 0 0 
0 1 1 
l 0 | 
l || | 
XOR (ab——c) 


Wykonanie operacji XOR powoduje zastąpienie — na stosie para- 
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metrów — danych słowowych a i b ich różnicą symetryczną c, 
wyznaczoną równolegle na wszystkich parach odpowiadających sobie 
bitów danych a i b. 

Zasady wyznaczania różnicy symetrycznej (sumy modulo 2): 


0 0 0 
0 | l 
1 0 1 
l l 0 


Przykłady 


a. Wyzerowanie najmniej znaczącego bitu danej bajtowej znajdującej się pod 
adresem 200 

200 DUP CQ 254 AND SWAP C! 
b. Zanegowanie bitów danej słowowej znajdującej się na szczycie stosu 
parametrów i wyprowadzenie jej jako liczby dziesiętnej (wykonanie operacji 
biernej HEX powoduje interpretowanie liczb w zapisie szesnastkowym, a 
wykonanie operacji biernej DECIMAL powoduje przywrócenie interpretowa- 
nia liczb w zapisie dziesiętnym) 

HEX FFFF XOR DECIMAL . D 


Operacje słownikowe 


Operacje słownikowe służą do wykonywania działań związanych z lokalizacją 
1 umieszczaniem danych w słowniku operatorów. Do grupy tej należą także 
operacje dokonujące modyfikacji definicji operatorów. Podstawowymi ope- 
racjami słownikowymi są: HERE (określ-adres-szczytu-słownika), ALLOT 
(zmień-adres-szczytu-słownika), „, (przenieś-sdaną-słowową-ze-stosu-parame- 
trów-do-słownika), C, (przenieś-mdaną-bajtową-ze-stosu-parametrów-do-słowni- 
ka), LITERAL (umieść-w-słowniku-wskazanie-operatora-i-umieść-za-nim-da- 
ną-słowową-ze-stosu-parametrów). 


HERE ( —— a) 
Wykonanie operacjj HERE powoduje umieszczenie — na stosie 
parametrów — adresu a pierwszego wolnego bajtu słownika. 
ALLOT (n —-— ) 


Wykonanie operacji ALLOT powoduje zmianę położenia pierwszego 
wolnego bajtu słownika o n bajtów (n może być ujemne). 


, ( a —— ) 
Wykonanie operacji , powoduje przeniesienie danej słowowej ze stosu 
parametrów do słownika. 
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C, ( ad —— ) 
Wykonanie operacji C, powoduje przeniesienie do słownika danej 
bajtowej stanowiącej dolny bajt danej słowowej a. 


LITERAL (a —— ) 
Wykonanie operacji LITERAL powoduje umieszczenie w słowniku 
wskazania operatora LIT, a następnie zdjęcie — ze stosu parametrów 
— danej słowowej a i umieszczenie jej w słowniku bezpośrednio za tym 
wskazaniem. 


Przykłady 


a. Zarezerwowanie w słowniku 40 bajtów 

40 ALLOT 
b. Umieszczenie w słowniku trzech danych bajtowych o wartościach 20, 30 i 40 
(w tej kolejności) 

40 30 0 CG GC, m 


4. Definiowanie operatorów 


Do definiowania nowych operatorów języka służą kompilatory. Są to operato- 
ry, których wykonanie powoduje utworzenie w słowniku definicji nowego 
operatora. Definicja operatora składa się z nagłówka oraz z pola parametrów. 

Zgodnie z rys. 4.1 nagłówek składa się z pola nazwy, pola łącznika oraz 
pola kodu. Pole nazwy składa się z bajtu sterującego oraz z pewnej liczby 
bajtów zawierających nazwę operatora przedstawioną w kodzie ASCII. Naj- 
bardziej znaczący bit pierwszego i ostatniego bajtu pola nazwy ma wartość 1. 
Bajt sterujący składa się zatem z bitu o wartości 1, bitu immediate, bitu smudge 
i 5 bitów licznika. Bit immediate określa, czy operator jest czynny (1) czy bierny 


Łącznik 


i 


/ N 
1 
/ > 
z N N 
Z ł 
/ N l 4 


Bit imrmedlate 


4.1. Nagłówek definicji operatora 
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(0), bit smudge określa, czy jest w pełni (0) czy tylko częściowo (1) zdefiniowany, 
a bity licznika określają liczbę znaków słowa, które określiło nazwę operatora 
(liczba ta może być większa od liczby znaków nazwy operatora umieszczonych 
w polu nazwy). 

Bezpośrednio za polem nazwy występuje pole łącznika. Zawiera ono 
adres pola nazwy poprzedniego operatora zdefiniowanego w tym samym 
podsłowniku. Tuż po zainicjowaniu procesora słownik składa się zazwyczaj 
tylko z podsłownika Forth i w nim właśnie są umieszczane nowe definicje 
operatorów. Język zapewnia jednak środki do definiowania nowych pod- 
słowników, a pola łącznika związują definicje należące do tego samego 
podsłownika w jednokierunkową listę. Listy dla poszczególnych podsłowników 
są przeglądane wstecz podczas wyszukiwania operatorów w słowniku. 

Ważnym elementem nagłówka definicji jest pole kodu. Zawiera ono 
adres podprogramu w kodzie maszynowym. Jeśli ten adres pokrywa się 
z adresem pola parametrów, to wykonanie operacji związanej z tym operato- 
rem ogranicza się do wykonania tego podprogramu. O takim operatorze mówi 
się, że jest zdefiniowany w kodzie maszynowym. 

Do utworzenia nagłówka nowego operatora służy operator bierny 
CREATE, a do zmiany wartości bitów immediate i smudge odpowiednio 
operatory IMMEDIATE i SMUDGE. Wymienione uprzednio określenie 
„wskazanie operatora” jest w istocie adresem pola kodu definicji operatora. 
Skutki wykonania wymienionych tu operacji są następujące 


CREATE ( —— ) 
Wykonanie operacji CREATE powoduje wprowadzenie ze strumienia 
wejściowego jednego słowa, a następnie utworzenie nagłówka definicji 
operatora o nazwie identycznej z nazwą tego słowa. Bity immediate 
1 smudge właśnie utworzonego nagłówka otrzymają wartość 0. W polu 
kodu zostanie umieszczony adres bajtu następującego bezpośrednio po 
tym polu. 


SMUDGE (——) 


Wykonanie operacji SMUDGE powoduje zanegowanie bitu smudge 
ostatniej definicji słownika. 


IMMEDIATE ( —-— ) 
Wykonanie operacjj IMMEDIATE powoduje zanegowanie bitu 
immediate ostatniej definicji słownika. 


Znacznie częściej od operatora CREATE, do definiowania nowych 
operatorów jest stosowany operator : (dwukropek) i związany z nim operator 
; (średnik). Słowo występujące bezpośrednio za operatorem : określa nazwę 
nowego, właśnie definiowanego operatora, a dalsze słowa, aż do ; wyłącznie 
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stanowią treść definicji. W tym sensie zinterpretowanie sekwencji słów 
: TRIPLE 
DUP DUP + + ; 
powoduje utworzenie w słowniku definicji operatora TRIPLE. Przyszłe wyko- 
nanie operacji TRIPLE spowoduje dwukrotne wykonanie operacji DUP 
1 dwukrotne wykonanie operacji +, tj. potrojenie wartości danej znajdującej 
się na szczycie stosu parametrów. Na rysunku 4.2 przedstawiono definicję 


e ZN R R 


TRIPLE A F7 


4.2. Struktura definicji operatora TRIPLE 


słownikową operatora TRIPLE i jego powiązania z operatorami :, DUP, 
+ 1;S. Na rysunku tym pole nazwy wraz z polem łącznika przedstawiono 
w postaci kwadratu, pole kodu w postaci okręgu, wskazania jako pionowe 
prostokąty, a podprogramy zapisane w kodzie maszynowym — jako prosto- 
kąty wyróżnione poziomą kreską. Zgodnie z tą definicją, pole kodu operatora 
TRIPLE zawiera adres podprogramu umieszczonego w polu parametrów 
definicji operatora :, a pole parametrów definicji operatora TRIPLE składa się 
ze wskazań operatorów DUP, + i;S. Pola kodu tych operatorów zawierają 
adresy ich pól parametrów. Oznacza to, że wymienione operatory są zdefinio- 
wane w kodzie maszynowym. 

W ogólnym przypadku definicja nowego operatora ma postać 

: nazwa 

słowa ; 

gdzie nazwa jest argumentem operatora : (dwukropek), słowa zaś określają 
treść definicji operatora nazwa. Ponieważ wykonanie operacji : powoduje 
ustawienie interpretera w stan definiowania, poszczególne operatory sekwencji 
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słowa nie są interpretowane, a jedynie — bezpośrednio za nagłówkiem definicji 
operatora nazwa — są umieszczane w słowniku wskazania tych operatorów. 
Wyjątek w tym względzie stanowią jedynie operatory czynne, które są 
interpretowane również w stanie definiowania. Takim operatorem jest np. 
; (średnik), którego zinterpretowanie powoduje umieszczenie w słowniku 
wskazania operatora ;S i ustawienie interpretera w stan wykonywania. Tym 
samym wykonanie operacji : (dwukropek) powoduje przełączenie interpretera 
w stan kompilacji jedynie na czas definiowania operatora nazwa. Operator 
nazwa zostaje włączony do słownika, a jego definicja — połączona z definicja- 
mi innych operatorów. 

Ponieważ wykonanie operacji : (dwukropek) powoduje nadanie bitowi 
smudge operatora nazwa wartości 1, bezpośrednio po wykonaniu tej operacji 
operator nazwa jest traktowany tak, jakby nie był w pełni zdefiniowany. 
Umożliwia to odwoływanie się w sekwencji słowa do operatora nazwa w pełni 
zdefiniowanego już uprzednio. Dopiero po wykonaniu operacji ; (średnik), 
kiedy to nastąpi zanegowanie bitu smudge, nowa definicja przesłoni następną. 
Jak z tego wynika, mechanizm związany z bitem smudge umożliwia m.in. 
zdefiniowanie operatora odwołującego się do wcześniej zdefiniowanego opera- 
tora o tej samej nazwie. 

Jeśli definiowany operator ma należeć do kategorii operatorów czyn- 
nych, to po zdefiniowaniu jego nagłówka należy posłużyć się operatorem 
IMMEDIATE. Następuje to najczęściej po wykonaniu operacji ; (średnik). Jak 
już wyjaśniano, operacja czynna jest wykonywana nawet wtedy, gdy interpreter 
znajduje się w stanie definiowania. 

W tych przypadkach, gdy jest wymagane umieszczenie w słowniku 
wskazania operatora czynnego, a nie wykonanie operacji związanej z tym 
operatorem, należy poprzedzić go specjalnym operatorem czynnym [COMPI- 
LE]. Natomiast wtedy, gdy podczas definiowania wymagane jest wykonanie 
pewnej sekwencji operacji biernych należy poprzedzić ją operatorem czyn- 
nym [ i zakończyć operatorem biernym |]. W istocie, wykonanie operacji 
[ powoduje po prostu ustawienie interpretera w stan wykonywania, a wykona- 
nie operacji |] powoduje ustawienie go w stan definiowania. 

Niekiedy zachodzi potrzeba zdefiniowania takiej operacji, której 
wykonanie spowoduje umieszczenie w słowniku wskazania określonego opera- 
tora. Do tego celu służy operacja bierna COMPILE. Jej wykonanie powoduje 
umieszczenie w słowniku takiego samego wskazania, jakie występuje po 
wskazaniu operatora COMPILE. 


Przykłady 
a. Definiowanie operatora biernego 

: ZERO DROP 0; 

e Wykonanie operacji ZERO powoduje zastąpienie danej znajdującej 
się na szczycie stosu parametrów daną o wartości 0. 
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e W polu parametrów operatora ZERO występują: wskazanie opera- 
tora DROP, wskazanie operatora LIT, dana o wartości 0, wskazanie operatora 
;S. 

e Wykonanie sekwencji operacji 

30 : ADD 20 ZERO + ; ADD 
spowoduje zdefiniowanie operatora ADD oraz umieszczenie — na stosie 
parametrów — danej o wartości 30. W polu parametrów operatora ADD 
znajdą się: wskazanie operatora LIT, dana słowowa o wartości 20, wskazanie 
operatora ZERO, wskazanie operatora + (plus) i wskazanie operatora ;S. 


b. Definiowanie operatora czynnego 
ZERO DROP 0 ; IMMEDIATE 

e Wykonanie operacji ZERO powoduje zastąpienie danej znajdującej 
się na szczycie stosu parametrów daną o wartości 0. Operacja ZERO jest 
wykonywana również w stanie definiowania. 

e W polu parametrów operatora ZERO występują: wskazanie opera- 
tora DROP, wskazanie operatora LIT, dana słowowa o wartości O i wskazanie 
operatora ;S. 

o Wykonanie sekwencji operacji 

30 : ADD 20 ZERO + ; ADD 
spowoduje zdefiniowanie operatora oraz umieszczenie — na stosie para- 
metrów — danej o wartości 20. W polu parametrów operatora ADD znajdą 
się. wskazanie operatora LIT, dana słowowa o wartości 20 i wskazanie 
operatora +. Nie wystąpi tam wskazanie operatora ZERO, ponieważ zinter- 
pretowanie słowa ZERO spowodowało natychmiastowe wykonanie operacji 
ZERO, a nie umieszczenie w słowniku wskazania operatora ZERO. Wynika to 
stąd, że ZERO jest operatorem czynnym. 


c. Użycie operatora [COMPILE] 

: GET DUP ; IMMEDIATE 

: NEG [COMPILE] GET MINUS ; 

e Wykonanie operacji GET powoduje powielenie — na stosie para- 
metrów — danej słowowej znajdującej się na jego szczycie. Operacja GET jest 
wykonywana także wtedy, gdy interpreter znajduje się w stanie definiowania. 

e Wykonanie operacjj NEG powoduje umieszczenie — na stosie 
parametrów — dwójkowego uzupełnienia danej słowowej znajdującej się na 
jego szczycie. 

e W polu parametrów operatora NEG występują: wskazanie opera- 
tora GET, wskazanie operatora MINUS i wskazanie operatora ;S. 

e Gdyby w definicji operatora NEG nie wystąpiło słowo [COMPI- 
LE], to pole parametrów tego operatora nie zawierałoby wskazania operatora 
GET. 


d. Użycie operatorów [ i ] 
:VALUE [ 2 5 + |] LITERAL; 
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e Operatory występujące między [ i ] są traktowane tak, jakby były 
czynne. 

e Ponieważ LITERAL jest operatorem czynnym, wykonanie operacji 
LITERAL powoduje umieszczenie w słowniku wskazania operatora LIT oraz 
przeniesienie do słownika danej słowowej znajdującej się na szczycie stosu 
parametrów. W polu parametrów operatora VALUE wystąpią: wskazanie 
operatora LIT, dana słowowa o wartości 7 i wskazanie operatora ;Ś. 

e Gdyby w definicji operatora VALUE opuszczono operator ], to 
stałaby się ona błędna, ponieważ podczas interpretowania operatora ; (średnik) 
stwierdzono by, że zinterpretowanie sekwencji operacji zawartych między 
operatorem : (dwukropek) a operatorem ; (średnik) spowodowało zmianę 
rozmiaru stosu parametrów. 


e. Użycie operatora COMPILE 
:OVER2 COMPILE OVER COMPILE OVER 
IMMEDIATE 

: ADD OVER2 + ; 

e Wykonanie operacji OVER2 powoduje umieszczenie w słowniku 
dwóch następujących po sobie wskazań operatora OVER. 

e Wykonanie operacji ADD powoduje umieszczenie — na stosie 
parametrów — słowowej sumy danych słowowych znajdujących się u szczytu 
stosu parametrów. 

e W polu parametrów operatora ADD występują: dwa następujące po 
sobie wskazania operatora OVER, wskazanie operatora + (plus) i wskazanie 
operatora ;S. 

e Gdyby operator OVER2 zdefiniowano jako bierny, to w polu 
parametrów operatora ADD wystąpiłyby: wskazanie operatora OVER2, 
wskazanie operatora + i wskazanie operatora ;S. 


, 


f Złożone użycie operatorów [COMPILE] i COMPILE 
: GET R ; IMMEDIATE 
SET COMPILE [COMPILE] GET ; IMMEDIATE 
NEG SET MINUS ; 
e W polu parametrów operatora SET występują: wskazanie operatora 
COMPILE, wskazanie operatora GET i wskazanie operatora ;S. 
e W polu parametrów operatora NEG występują: wskazanie opera- 
tora GET, wskazanie operatora MINUS i wskazanie operatora ;S. 


g. Zdefiniowanie czynnego operatora-liczby 

: —5 —5 ; IMMEDIATE 

e Po zinterpretowaniu przytoczonej sekwencji —5 jest operatorem 
czynnym. 

e Wykonanie operacji —5 powoduje umieszczenie — na stosie para- 
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metrów — danej słowowej o wartości —5. Dzieje się tak nawet wtedy, gdy 
interpreter znajduje się w stanie definiowania. 

e Gdyby —5 zdefiniowano jako operator bierny, to skutek zinter- 
pretowania go byłby taki sam, jak skutek zinterpretowania liczby —5. 
Wykonanie operacji —5 byłoby jednak szybsze. [] 


5. Stos powrotów 


Podobnie jak stos operatorów, stos powrotów jest strukturą typu LIFO, której 
elementami są dane słowowe. Stos powrotów może być wykorzystywany jako 
pomocniczy stos roboczy, na którym są przechowywane dane słowowe oraz 
parametry niektórych instrukcji strukturalnych. Jego głównym zadaniem jest 
jednak przechowywanie śladu wzajemnych wywołań operatorów. Zbiór ope- 
racji dotyczących stosu powrotów jest nader skromny. Ogranicza się on do 
omówionych już operacji R, >R, R>, RP! RPQ i RO. 

W celu bliższego wyjaśnienia zasad posługiwania się stosem powrotów 
konieczne jest odwołanie się do pojęcia licznik interpretera. Licznikiem tym, 
oznaczanym IP, jest pewien wewnętrzny rejestr procesora, który w chwili 
rozpoczęcia interpretowania definicji operatora zawiera adres wskazania pola 
kodu tego operatora, który w zwykłych warunkach będzie interpretowany jako 
następny. Pokazano to na rys. 5.1, z którego wynika, że jeśli podczas 
interpretowania operatora JAN zostanie napotkane w słowniku wskazanie 
operatora EWA, to w chwili podjęcia czynności związanych z interpretacją 
operatora EWA, licznik interpretera będzie zawierał adres wskazania pola 
kodu operatora IZA. Spowoduje to, że w zwykłych warunkach, bezpośrednio 
po wykonaniu operacji EWA, będzie kontynuowane wykonywanie operacji 
JAN, a w chwili podjęcia interpretowania operacji IZA licznik interpretera 
będzie zawierał adres wskazania operatora KAJA. 

Jeśli operatory takie jak EWA, IZA i KAJA są zdefiniowane w kodzie 
maszynowym, to w każdym przypadku ich pole kodu zawiera adres pierwszego 
bajtu pola parametrów. W polu tym znajduje się kod maszynowy, a po jego 
wykonaniu następuje zwiększenie licznika interpretera o 2. Spowoduje to 
przejście do interpretowania następnego operatora, np. operatora KAJA 
bezpośrednio po operatorze IZA. 
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EWA IZA KAJĄ 
JAN 
Ip 
7 


5.1. Licznik interpretera 


Jeśli pewien operator jest zdefiniowany za pomocą kompilatora 
: (dwukropek), to pole kodu tego operatora zawiera adres podprogramu 
w kodzie maszynowym, którego wykonanie powoduje m.in. przeniesienie 
zawartości licznika intepretera na stos powrotów. Po zakończeniu wykonywa- 
nia operacji definiujących taki operator, dana ze szczytu stosu powrotów 
zostaje przeniesiona do licznika interpretera. Przebieg dalszej interpretacji 
zależy od tej nowej wartości licznika. Należy nadmienić, że podczas interpre- 
towania operatora wartość ta może ulec zmianie. 

W celu podsumowania omówionych tu zasad posługiwania się stosem 
powrotów, na rys. 5.2 przedstawiono strukturę powiązań kilku operatorów 


5.2. Zasady posługiwania się stosem powrotów 
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zdefiniowanych za pomocą kompilatora : (dwukropek). Przyjęto dla uproszcze- 
nia, że wykonanie nie zdefiniowanych jawnie operatorów nie ma skutków 
ubocznych takich jak np. zmiana danych na stosie powrotów. 

TWO R> 2+ >R ; 

:FOUR R> DROP TWO ; 


: ENGLISH ONE TWO THREE FOUR FIVE ; 


: LANGUAGE GERMAN ENGLISH ITALIAN FRENCH ; 

Zgodnie z przytoczonymi uprzednio zasadami wykorzystania stosu 
powrotów można podać, że 

e Podczas wykonywania operacji ENGLISH, realizowanej w ramach 
wykonania operacji LANGUAGE, na szczycie stosu powrotów znajduje się 
adres « wskazania operatora ITALIAN. 

e Podczas wykonywania operacji TWO, realizowanej w ramach 
wykonania operacji ENGLISH, na szczycie stosu powrotów znajduje się adres 
BP wskazania operatora THREE. 

e Ponieważ wykonanie operacji IWO powoduje zwiększenie śladu na 
stosie powrotów o 2, bezpośrednio po wykonaniu operacji TWO nastąpi 
wykonanie operacji FOUR, tj. ominięcie operacji THREE. 

e Podczas wykonywania operacji FOUR, realizowanej w ramach 
wykonania operacji ENGLISH, na szczycie stosu powrotów znajduje się adres 
y wskazania operatora FIVE. 

e Ponieważ wykonanie operacji FOUR powoduje usunięcie ze stosu 
powrotów śladu y oraz zwiększenie o 2 śladu a, bezpośrednio po wykonaniu 
operacji FOUR nastąpi wykonanie operacji FRENCH, tj. ominięcie zarówno 
operacji FIVE jak i operacji ITALIAN. 


Przytoczone zasady umieszczania na stosie powrotów śladu wywołań 
operatorów dotyczą jedynie sytuacji, gdy są realizowane operacje zdefiniowane 
za pomocą kompilatora : (dwukropek). Przejście do wykonania operacji 
zdefiniowanych w kodzie maszynowym nie powoduje bowiem żadnych zmian 
na stosie powrotów. 


Przykład 


Wpływ sposobu zdefiniowania operacji na stan stosu powrotów 

:IBM PERSONAL MAIN—FRAME ; 

: COMPUTER DEC IBM CDC ; 

e W typowych warunkach wykonanie operacji COMPUTER spowo- 
duje wykonanie operacji IBM, a w ramach wykonania operacji IBM spowodu- 
je wykonanie operacji PERSONAL. 
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e Jeśli operacja PERSONAL jest zdefiniowana za pomocą kompila- 
tora : (dwukropek), to podczas jej wykonywania na stosie powrotów znajduje 
adres wskazania operatora MAIN—FRAME. 

e Jeśli operacja PERSONAL jest zdefiniowana w kodzie maszyno- 
wym, to podczas jej wykonania na stosie powrotów znajduje się adres 
wskazania operatora CDC. [m 


6. Definiowanie kompilatorów 


Kompilatorem jest operator związany z taką operacją, której wykonanie 
powoduje utworzenie definicjj nowego operatora. Poza omówionymi już 
kompilatorami : (dwukropek) i CREATE, predefiniowanymi kompilatorami 
języka Forth są m.in. CONSTANT i VARIABLE. 


CONSTANT (v —-— ) 
Wykonanie operacji CONSTANT powoduje utworzenie definicji ope- 
ratora o takiej samej nazwie, jaką ma najbliższe słowo w strumieniu 
wejściowym oraz umieszczenie w polu parametrów tego operatora 
danej słowowej o wartości v. Przyszłe wykonanie operacji związanej 
z tak utworzonym operatorem spowoduje umieszczenie — na stosie 
parametrów — danej o wartości v. 


VARIABLE (v —— ) 
Wykonanie operacji VARIABLE powoduje utworzenie definicji ope- 
ratora o takiej samej nazwie, jaką ma najbliższe słowo w strumieniu 
wejściowym oraz umieszczenie w polu parametrów tego operatora 
danej słowowej o wartości v. Przyszłe wykonanie operacji związanej 
z tak utworzonym operatorem spowoduje umieszczenie — na stosie 
parametrów — adresu wspomnianej danej. 
Podobnie jak do zdefiniowania operatora można było posłużyć się 
sekwencją 
: nazwa 
słowa-definiujące ; 


tak w szczególności do zdefiniowania kompilatora można posłużyć się sekwen- 
cją 
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: nazwa 
< BUILDS 
słowa-kompilujące 
DOES > 
słowa-wykonawcze 
W sekwencji tej nazwa identyfikuje kompilator, słowa-kompilujące 
określają czynności wykonywane przez kompilator podczas tworzenia nowej 
definicji, a słowa-wykonawcze określają czynności realizowane podczas wyko- 
nywania operacji związanej z definicją operatora utworzoną przez dany 
kompilator. Dzięki odpowiedniemu dobraniu definicji operatorów <BUILDS 
1 DOES>, wykonanie operacji nazwa nie powoduje wykonania czynności 
określonych przez słowa-wykonawcze. Czynności te są realizowane dopiero 
podczas wykonywania operacji związanej z definicją operatora utworzoną za 
pomocą kompilatora nazwa. 
Zarówno <BUILDS, jak i DOES> są operatorami biernymi, zde- 
finiowanymi za pomocą kompilatora : (dwukropek). Ich zinterpretowanie 
powoduje wykonanie następujących czynności. 


<BUILDS ( —— ) 
Wykonanie operacji biernej <BUILDS powoduje utworzenie na- 
główka definicji operatora o takiej samej nazwie, jaką ma najbliższe 
słowo w strumieniu wejściowym oraz umieszczenie w polu para- 
metrów tego operatora danej słowowej o wartości 0. 


DOES> ( -—-— ) 
Wykonanie operacji biernej DOES> powoduje zakończenie interpre- 
towania definicji tego operatora, w której wystąpiło odwołanie do 
DOES>. Zanim to nastąpi, w polu parametrów ostatnio zdefinio- 
wanego operatora zostanie umieszczony ślad zdjęty ze stosu powro- 
tów, tj. adres słów-wykonawczych następujących po wskazaniu opera- 
tora DOES>, a w polu kodu wspomnianego operatora zostanie 
umieszczony adres podprogramu w kodzie maszynowym. Podpro- 
gram ten jest wspólny dla wszystkich kompilatorów zdefiniowanych za 
pomocą operatora DOES> i jest tak dobrany, że jego wykonanie 
powoduje umieszczenie — na stosie parametrów — adresu trzeciego 
bajtu pola parametrów operatora i przygotowanie interpretera do 
wykonania słów-wykonawczych. 
Na rysunku 6.1 przedstawiono strukturę definicji przykładowego 

kompilatora BYTE zdefiniowanego za pomocą sekwencji 


BYTE 
<BUILDS C, DOES> CQ ; 
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: (;CODE) 
< BUJLDS DOES > SE 


BYTE 
sie |! 


6.1. Struktura definicji kompilatora BYTE i operatora SIX 


BUIŁDS 


oraz operatora SIX skompilowanego przez BYTE w następstwie zinterpreto- 
wania sekwencji 

6 BYTE SIX 

Po wykonaniu tej ostatniej czynności w słowniku zostaje umieszczona 
definicja operacji SIX. Przyszłe wykonanie tej operacji spowoduje umieszczenie 
na stosie parametrów danej słowowej, której górny bajt ma wartość 0, a dolny 
pochodzi z trzeciego bajtu pola parametrów operatora SIX. Łatwo zauważyć, 
że w ogólnym przypadku użycie kompilatora BYTE powoduje definiowanie 
operatorów identyfikujących stałe bajtowe. Jak wynika z przytoczonego opisu, 
wykonanie kompilacji 

6 BYTE SIX 
składa się z wykonania operacji <BUILDS (utworzenie nagłówka definicji 
operatora SIX) oraz z wykonania operacji C, (przeniesienie danej bajtowej 
z pola parametrów do słownika). Wykonanie operacji DOES> powoduje 
zakończenie czynności związanych z definiowaniem operatora SIX i zaniecha- 
nie interpretowania słów-wykonawczych, tu CQ. Słowa te są interpretowane 
podczas wykonywania operacji SIX. Zanim to nastąpi, na stosie parametrów 
zostaje umieszczony adres trzeciego bajtu pola parametrów, tj. tego bajtu, 
w którym podczas kompilacji umieszczono daną bajtową o wartości 6. 


Przykłady 


a. Użycie kompilatora CONSTANT 
400 CONSTANT ALPHA 
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e Wykonanie operacji ALPHA powoduje umieszczenie — na stosie 
parametrów — danej słowowej o wartości 400. 
b. Użycie kompilatora VARIABLE 

400 VARIABLE BETA 


e Wykonanie operacji BETA powoduje umieszczenie — na stosie 
parametrów — adresu danej o wartości 400. 
c. Zdefiniowanie kompilatora tablic jednowymiarowych 
VECTOR 
<BUILDS ALLOT 
DOES> + ; 
e Wykonanie operacji VECTOR ( n —— ) powoduje utworzenie 


definicji operatora, w którego polu parametrów zostanie zarezerwowany 
obszar o rozmiarze n bajtów. 

e Wykonanie sekwencji 

5 VECTOR BUF 
powoduje zdefiniowanie operatora BUF, w którego polu parametrów wystę- 
puje obszar roboczy o rozmiarze 5 bajtów. 

e Wykonanie sekwencji 

13 2 BUF C! 
powoduje umieszczenie w środkowym bajcie obszaru roboczego danej bajtowej 
o wartości 13. 


d. Zdefiniowanie kompilatora tablic dwuwymiarowych 
ARRAY 
<BUILDS OVER CC, DUP C, + ALLOT 
DOES> 1+ ROT OVER CQ + + + 1+ ; 

e Wykonanie operacji ARRAY ( w k — — ) powoduje utworzenie 
definicji operatora, w którego polu parametrów zostaną umieszczone dane 
bajtowe w i k, określające rozmiary tablicy. Ponadto zostanie zarezerwowany 
obszar roboczy o rozmiarze w * k bajtów. 

e Wykonanie sekwencji 

2 3 ARRAY BUF 
powoduje zdefiniowanie bufora BUF, w polu parametrów którego występują 
dane bajtowe o wartościach 2 i 3 oraz obszar o rozmiarze 6 bajtów. 
W obszarze tym znajduje się miejsce dla elementów tablicy. Przyjmując, że 
indeksy wierszy i kolumn są liczone od zera, a elementy tablic są uporządko- 
wane wierszami, można podać, że element o indeksie (i, j) znajduje się w bajcie 
o numerze ixk--j. 

e Wykonanie sekwencji 

13 2 1 BUF C! 
powoduje przypisanie elementowi tablicy o indeksie (2,1) danej bajtowej 
o wartości 13. 
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e. Zdefiniowanie kompilatora operatorów wyboru 
SELECT 
<BUILDS SMUDGE |] 
DOES> SWAP 2 + + (Q EXECUTE ; 

e Wykonanie użytej tu operacji EXECUTE (a —— ) powoduje 
wykonanie operacji, której pole kodu znajduje się pod adresem a. 

e Jesli PRINT, ZERO i ADD są przykładowymi operatorami o 
definicjach 

:PRINT ”. JANEK ; 

:ZERO DROP 0 ; 

ADD + + ; 
to zinterpretowanie sekwencji 

SELECT OBEY PRINT ZERO ADD ; 
spowoduje utworzenie takiej definicji operatora OBEY, że sekwencja 0 OBEY 
jest wykonywana tak jak operator PRINT, sekwencja 1 OBEY jest wykonywa- 
na tak jak operator ZERO, a sekwencja 2 OBEY jest wykonywana tak jak 
operator ADD. 

e Użycie w definicji kompilatora SELECT operatora ] powoduje 
przejście interpretera w stan definiowania. Powoduje to, że aż do napotkania 
operatora czynnego ; (przywracającego stan wykonywania), w definicji opera- 
tora OBEY są umieszczane wskazania operatorów PRINT, ZERO i ADD. 

e Ponieważ wykonanie operacji ; kończącej sekwencję operatorów 
PRINT ZERO ADD powoduje zanegowanie bitu smudge operatora OBEY, 
w definicji kompilatora SELECT posłużono się operacją SMUDGE kompen- 
sująca to zanegowanie. 


7. [Instrukcje strukturalne 


W ślad za wieloma innymi językami programowania, także w języku Forth 
zdefiniowano instrukcje strukturalne. Instrukcje te mają postać sekwencji 
operatorów, wśród których występują operatory kluczowe, jak IF, THEN, 
WHILE itp., wytyczające zakresy poszczególnych instrukcji strukturalnych. 

Instrukcje strukturalne mogą być używane jedynie w tych sekwencjach 
operatorów, podczas interpretowania których interpreter znajduje się w stanie 
definiowania. Z tego względu wszystkie operatory kluczowe należą do kate- 
gorii operatorów czynnych. 


Instrukcja warunkowa 


Instrukcja ta ma postać 
przed-if IF 
po-if-przed-else 

ELSE 

po-else-przed-then 

THEN 
gdzie przed-if, po-if-przed-else i po-else-przed-then są dowolnymi sekwencjami 
operatorów. 

Po wykonaniu sekwencji przed-if następuje zdjęcie — ze stosu para- 
metrów — danej słowowej i rozpatrzenie jej wartości. Jeśli wartość ta jest 
różna od 0, to jest wykonywana sekwencja po-if-przed-else. W przeciwnym 
razie jest wykonywana sekwencja po-else-przed-then. 

W każdym kontekście operator kluczowy THEN może być zastąpiony 
operatorem kluczowym ENDIF, a w przypadku gdy sekwencja po-else- 
-przed-then jest pusta, może być opuszczony operator kluczowy ELSE. 
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Przykłady 


a. Wykorzystanie instrukcji warunkowej 
INP 
KEY KEY OVER OVER = 
IF 
.. BOTH * EMIT DROP 
ELSE 
SWAP EMIT EMIT 
THEN ; 
e Wykonanie operacji INP powoduje wprowadzenie z klawiatury 
terminala dwóch znaków i porównanie ich. 
e Jeśli znaki są identyczne, to jest wyprowadzany napis BOTH oraz 
jeden ze znaków. 
e Jeśli znaki są różne, to są one wyprowadzane w kolejności ich 
wprowadzenia. 
b. Wykorzystanie instrukcji warunkowej bez ELSE 
: CHECK ( —-—) 


.. TOP OF STACK NEGATIVE” 
THEN ; 
e Wykonanie operacji CHECK powoduje rozpatrzenie wartości danej 
słowowej znajdującej się na szczycie stosu parametrów. 
e Jeśli dana ta ma wartość ujemną, to jest wyprowadzany napis TOP 
OF STACK NEGATIVE. 
e W przeciwnym razie nie dzieje się nic. 
c. Wykorzystanie instrukcji warunkowej do zdefiniowania operacji rekurencyj- 
nej 
FACTORIAL 
DUP 
IF 
DUP I — 
[ SMUDGE ] FACTORIAL [ SMUDGE |] 
% 
ELSE 
1+ 
THEN ; 
e Wykonanie operacji FACTORIAL powoduje zastąpienie — na 
stosie parametrów — nieujemnej danej słowowej n jej słowową silnią n!. 
e Wykonanie operacji SMUDGE przed i po odwołaniu do operacji 
FACTORIAL powoduje, że odwołanie to dotyczy właśnie definiowanego 
operatora. LJ 
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Instrukcja iteracyjna DO .. LOOP 


Instrukcja ta występuje w kontekście 
przed-do 

DO 

po-do-przed-loop 

LOOP 

po-loop 
gdzie przed-do, po-do-przed-loop i po-loop są dowolnymi sekwencjami opera- 
torów 1 instrukcji. 

Po wykonaniu sekwencji przed-do następuje ustalenie dwóch para- 
metrów: ograniczenia / oraz wartości początkowej i, zmiennej sterującej cyklu. 
Po wykonaniu tych czynności następuje cykliczne wykonywanie sekwencji 
po-do-przed-loop dla zmiennej sterującej cyklu przybierającej wartości od i do 
I wyłącznie, z krokiem +1. Jeśli podczas wykonywania cyklu zostanie 
wykonana operacja I, to na szczycie stosu parametrów zostanie umieszczona 
dana słowowa określająca bieżącą wartość zmiennej sterującej cyklu. Po 
zakończeniu cyklu następuje przejście do wykonywania sekwencji po-loop. 
Ponieważ rozstrzyganie o kontynuowaniu cyklu odbywa się na końcu jego 
zakresu, tj. po wykonaniu sekwencji po-do-przed-loop, cykl jest wykonywany co 
najmniej jednokrotnie, a więc nawet wtedy gdy wartość początkowa zmiennej 
sterującej cyklu przekracza wartość ograniczenia. 


Przykłady 


a. Wykonanie cyklu iteracyjnego 
OUT 
7 3 DO I . LOOP ; 
© Wykonanie operacji OUT spowoduje wyprowadzenie liczb 3, 4, 51 6. 
e Zakres cyklu zawiera odwołania do operacji I i . (kropka). 


b. Wykonanie cyklu zawartego w innym cyklu 


OUT 
4 1 
DO 
CR I 4 1 
DO 
DUP 1 R I 
LOOP 
DROP 
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e Wykonanie operacji OUT powoduje wyprowadzenie napisu 


11 12 13 

21 22 23 

31 32 33 

e Pierwsze odwołanie do I dotyczy cyklu zewnętrznego, a drugie 
dotyczy cyklu wewnętrznego. D 


Instrukcja iteracyjna DO .. + LOOP 


Instrukcja ta występuje w kontekście 
przed-do 

DO 

po-do-przed-loop 

+ LOOP 

po-loop 
gdzie przed-do, po-do-przed-loop i po-loop są dowolnymi sekwencjami opera- 
torów 1 instrukcji. 

Po wykonaniu sekwencji przed-do następuje ustalenie dwóch para- 
metrów: ograniczenia | oraz wartości początkowej i, zmiennej sterującej cyklu. 
Po wykonaniu tych czynności następuje wykonanie sekwencji po-do-przed- 
-loop. Następnie ze stosu parametrów jest zdejmowana dana słowowa i wartość 
tej danej jest dodawana do zmiennej sterującej cyklu. Jeśli dodana wartość była 
dodatnia, a rezultat dodawania jest mniejszy od ograniczenia, jak również 
wtedy gdy dodana wartość była ujemna, a rezultat jest większy od ogranicze- 
nia, wykonanie zakresu cyklu jest powtarzane. W przeciwnym razie następuje 
zakończenie wykonywania instrukcji strukturalnej i przejście do wykonywania 
sekwencji po-loop. 


Przykłady 


a. Wykonanie cyklu z krokiem dodatnim, różnym od 1 
OUT 
9 4 DO I . 2 +LOOP ; 
e Wykonanie operacji OUT powoduje wyprowadzenie liczb 4, 6 1 8. 
e Gdyby w przytoczonej definicji zmieniono liczbę 9 na 10, to skutek 
wykonania operacji OUT byłby taki sam. 
b. Wykonanie cyklu z krokiem ujemnym 
OUT 
—3 1 DO I . -—2 +LOOP ; 
e Wykonanie operacji OUT powoduje wyprowadzenie liczb 1 i —1. 
e Gdyby w przytoczonej definicji zmieniono liczbę —3 na —2, to 
skutek wykonania operacji OUT byłby taki sam. C] 
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Instrukcja repetycyjna BEGIN .. WHILE .. REPEAT 


Instrukcja ta występuje w kontekście 

BEGIN 

po-begin-przed-while WHILE 
po-while-przed-repeat 

REPEAT 

po-repeat 
gdzie po-begin-przed-while, po-while-przed-repeat i po-repeat są dowolnymi 
sekwencjami operatorów i instrukcji. 

Po wykonaniu sekwencji po-begin-przed-while następuje zdjęcie — ze 
stosu parametrów — danej słowowej i rozpatrzenie jej wartości. Jesli wartość 
ta jest różna od 0, to nastąpi wykonanie sekwencji po-while-przed-repeat 
1 powtórzenie opisanych czynności od początku. W przeciwnym razie nastąpi 
zakończenie wykonywania instrukcji strukturalnej i przejście do wykonywania 
sekwencji po-repeat. 


Przykład 
Wykonanie cyklu repetycyjnego 
:TALLY (a —— n) 
0 
BEGIN 
SWAP DUP 1+ SWAP CQ WHILE 
SWAP 1+ 
REPEAT 
DROP ; 


e Przed wykonaniem operacji TALLY na szczycie stosu parametrów 
znajduje się adres pola pamięci operacyjnej. Pole to zawiera ciąg znaków 
w kodzie ASCII zakończony znakiem o kodzie O. 

e Po wykonaniu operacjj TALLY na szczycie stosu parametrów 
znajduje się dana słowowa określająca liczbę znaków wspomnianego pola. 


[B 


Instrukcja repetycyjna BEGIN .. UNTIL 


Instrukcja ta występuje w kontekście 
BEGIN 
po-begin-przed-until 
UNTIL 
po-until 
gdzie po-begin-przed-until i po-until są dowolnymi sekwencjami operatorów 
i instrukcji. 
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Po wykonaniu sekwencji po-begin-przed-until następuje zdjęcie — ze 
stosu parametrów — danej słowowej i rozpatrzenie jej wartości. Jeśli wartość 
ta jest równa 0, to nastąpi powtórzenie opisanych czynności od początku. 
W przeciwnym razie nastąpi zakończenie wykonywania instrukcji strukturalnej 
i przejście do wykonywania sekwencji po-until. 


Przykład 
Wykonanie cyklu repetycyjnego 
TALLY (a——n) 
l — —-l 
BEGIN 
1+ SWAP 1+ SWAP OVER CQ 0= 
UNTIL 


SWAP DROP ; 

e Przed wykonaniem operacji TALLY na szczycie stosu parametrów 
znajduje się adres pola pamięci operacyjnej. Pole to zawiera ciąg znaków 
w kodzie ASCII, zakończony znakiem o kodzie 0. 

e Po wykonaniu operacji TALLY na szczycie stosu parametrów 
znajduje się dana słowowa n określająca liczbę znaków wspomnianego 
pola. [] 


Instrukcja repetycyjna BEGIN ... AGAIN 


Instrukcja ta występuje w kontekście 

BEGIN 

po-begin-przed-again 

AGAIN 
gdzie po-begin-przed-again jest dowolną sekwencją operatorów i instrukcji. 

Po wykonaniu sekwencji po-begin-przed-again następuje powtórzenie 
wykonania tych czynności od początku. Wyznaczony przez instrukcję repety- 
cyjną cykl nieskończony może zostać przerwany, jeśli w zakresie tej instrukcji 
zostanie wykonana np. operacja ABORT. 


Przykład 

Wykonanie cyklu repetycyjnego 
CONVERT  ( cały-stos — — ) 
—1 
BEGIN 


1+ DUP DUP CR 
6 .R HEX 6 .R DECIMAL 
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?TERMINAL IF ABORT THEN 
AGAIN ; 
e Wykonanie operacji CONVERT powoduje wyprowadzenie bliżej 
nieokreślonej liczby par liczb szesnastkowych i dziesiętnych. 
e Wprowadzenie z klawiatury znaku break powoduje wykonanie 
operacji ABORT, kończącej cykl repetycyjny. i] 


0. Definiowanie instrukcji 
strukturalnych 


Zestaw instrukcji strukturalnych języka Forth jest na tyle obszerny, iż 
umożliwia efektywne formułowanie dostatecznie złożonych algorytmów. Po- 
nieważ jednak ważną cechą tego języka jest jego rozbudowywalność, przeja- 
wiająca się w możliwości definiowania w nim nowych operatorów i instrukcji, 
celowe wydaje się pokazanie sposobu definiowania instrukcji strukturalnych za 
pomocą podstawowych operatorów języka. 

Dla zilustrowania typowej metody postępowania zostanie przedsta- 
wiona implementacja dwóch instrukcji opisanych uprzednio: instrukcji warun- 
kowej i instrukcji cyklu, a następnie implementacja strukturalnej instrukcji 
wyboru. 

Do realizacji instrukcji warunkowej zostaną użyte dwa operatory 
zdefiniowane w kodzie maszynowym: BRANCH i OBRANCH. 


BRANCH  ( —— ) 
Wykonanie operacjj BRANCH — wchodzącej w skład definicji 
pewnego operatora — powoduje dodanie do licznika interpretera IP 
wartości danej słowowej następującej bezpośrednio po wskazaniu 
operatora BRANCH. Zrealizowanie takiej operacji jest więc równo- 
ważne wykonaniu bezwarunkowego skoku względnego. 


OBRANCH (b —— ) 

Wykonanie operacjj OBRANCH — wchodzącej w skład definicji 
pewnego operatora — zaczyna się od rozpatrzenia relacji b = O. Jeśli 
relacja ta jest prawdziwa, to do licznika interpretera IP jest dodawana 
wartość danej słowowej następującej bezpośrednio po wskazaniu 
operatora OBRANCH. W przeciwnym razie, do wspomnianego liczni- 
ka jest dodawana wartość 2. Zrealizowanie takiej operacji jest więc 
równoważne wykonaniu warunkowego skoku względnego. 
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W celu bliższego wyjaśnienia sposobu wykonywania operacji 
BRANCH i OBRANCH, zostanie rozpatrzony przykładowy operator TALLY 
tak dobrany, że wykonanie operacji TALLY powoduje zastąpienie — na stosie 
parametrów — adresu a pola znaków zakończonego znakiem o kodzie 0 daną 
słowową n określającą rozmiar tego pola w znakach. TALLY jest operatorem 
biernym, zdefiniowanym za pomocą kompilatora : (dwukropek) 

TALLY 
DUP 
BEGIN 
DUP CQ WHILE 


SWAP — ; 

Poniżej przedstawiono równoważną definicję tego operatora, wyra- 
żoną za pomocą sekwencji zawierającej odwołania do operatorów BRANCH 
1 OBRANCH 

: TALLY 

DUP 
DUP CQ 
OBRANCH [ 8 , |] 
1+ 
BRANCH [ —12 , |] 
SWAP — ; 
Strukturę tej definicji pokazano na rys. 8.1. 


8.1. Struktura definicji operatora TALLY 


Ponieważ podczas interpretowania operacji OBRANCH licznik inter- 
pretera IP wskazuje słowo zawierające daną o wartości 8, wykonanie skoku 
warunkowego spowoduje nadanie licznikowi interpretera wartości IP + 8. 
Ponieważ pod adresem IP + 8 znajduje się wskazanie operatora SWAP, ta 
właśnie operacja zostanie wykonana jako następna po OBRANCH. Gdyby 
natomiast skok warunkowy nie miał być wykonany, to do licznika interpretera 
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zostałaby dodana dana o wartości 2, a więc następną wykonywaną operacją 
byłoby 1+. Analogicznie można wywnioskować, że podczas wykonywania 
operacji BRANCH nastąpi przejście do wykonywania drugiej operacji DUP. 
Pokazano to na rysunku za pomocą linii przerywanych. 

Mając do dyspozycji operatory BRANCH i OBRANCH można 
przedstawić prostą implementację operatorów kluczowych instrukcji warunko- 
wej IF 


IF 

COMPILE OBRANCH HERE 0 , ; IMMEDIATE 
: THEN 

HERE OVER — SWAP ! ; IMMEDIATE 

: ELSE 


COMPILE BRANCH HERE 0 , SWAP 
[COMPILEJ] THEN ; IMMEDIATE 
W celu ułatwienia analizy przytoczonych definicji, zostanie rozpatrzo- 
ny przebieg definiowania operatora ?PUT. 
:?PUT 0= IF DROP ELSE . THEN ; 
Operator ten jest zdefiniowany za pomocą kompilatora : (dwukropek), a jego 
definicja jest równoważna definicji 
: PUT 
0= 
OBRANCH [ 8 , ] 
DROP 
BRANCH [ 4 , | 


Definiowanie operatora ?PUT przebiega w następujący sposób: 

e Zinterpretowanie słowa : powoduje utworzenie w słowniku, nagłów- 
ka definicji operatora ?PUT i ustawienie interpretera w stan definiowania. 

e Zinterpretowanie słowa 0= powoduje umieszczenie w słowniku 
wskazania pola kodu operatora 0=. 

e Zinterpretowanie słowa IF powoduje wykonanie operacji IF, tj. 
umieszczenie w słowniku wskazania pola kodu operatora OBRANCH, a 
ponadto umieszczenie — na stosie parametrów — adresu pierwszego wolnego 
bajtu słownika i umieszczenie pod tym adresem danej słowowej o wartości O. 

e Zinterpretowanie słowa DROP powoduje umieszczenie w słowniku 
wskazania pola kodu operatora DROP. 

e Zinterpretowanie słowa ELSE powoduje wykonanie operacji ELSE, 
tj. umieszczenie w słowniku wskazania pola kodu operatora BRANCH, 
umieszczenie — na stosie parametrów — adresu pierwszego wolnego bajtu 
słownika i umieszczenie pod tym adresem danej o wartości 0, a następnie 
wyznaczenie adresu względnego skoku warunkowego i umieszczenie go 
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w miejscu danej o wartości 0, występującej po wskazaniu pola kodu operatora 
OBRANCH. 


e Zinterpretowanie słowa . powoduje umieszczenie w słowniku wska- 
zania pola kodu operatora . (kropka). 

e Zinterpretowanie słowa THEN powoduje wykonanie operacji 
THEN, tj. wyznaczenie adresu względnego skoku bezwarunkowego i umie- 
szczenie go w miejscu danej o wartości 0, występującej po wskazaniu pola kodu 
operatora BRANCH. 


W analogiczny sposób jak operatory kluczowe instrukcji warunkowej 
mogą być definiowane operatory kluczowe instrukcji strukturalnych. Zostanie 
to zilustrowane przykładem zdefiniowania instrukcji wyboru, która w ogólnym 
przypadku będzie wywoływana w kontekście 

wyróżnik  CASE( 

cecha, WHEN( ciąg, ) 
cecha, WHEN( ciąg, ) 


cecha, WHEN ( ciąg, ) 
OTHER ( ciągo ) 
)END 

Występujący w tej instrukcji wyróżnik oraz wszystkie cechy i ciągi są 
dowolnymi sekwencjami operatorów i instrukcji strukturalnych. Wymaga się 
jedynie, aby zinterpretowanie wyróżnika oraz każdej z cech powodowało 
umieszczenie — na stosie parametrów — jednej danej słowowej oraz aby 
zinterpretowanie cechy nie powodowało zmiany rozmiaru stosu powrotów. 


Wykonanie instrukcji wyboru polega na porównywaniu danej uzyska- 
nej w następstwie zinterpretowania wyróżnika z danymi uzyskanymi w na- 
stępstwie zinterpretowania cech. Jeśli dla pewnej cechy, zostanie stwierdzona 
równość danych, to nastąpi wykonanie sekwencji ciąg, i zakończenie wykony- 
wania instrukcji wyboru. Jeśli nie stwierdzi się równości, to nastąpi wykonanie 
sekwencji ciąg, chyba że w instrukcji wyboru nie użyto frazy OTHER 
( ciągy ) i wtedy nie nastąpi wykonanie żadnych czynności. 

Posługując się opisaną instrukcją wyboru można zdefiniować przed- 
stawiony uprzednio operator wyboru OBEY. Jak można się przekonać po 
zinterpretowaniu sekwencji 

: OBEY 

CASE( 
0 WHEN( DUP ) 
1 WHEN( SWAP ) 
2 WHEN( DROP ) 
OTHER( . ERROR” ) 
END ; 
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następuje zdefiniowanie takiego operatora OBEY, że 

0 OBEY jest równoważne DUP 

1 OBEY jest równoważne SWAP 

2 OBEY jest równoważne DROP 
zaś n OBEY dla n różnego od 0, 1, 2 jest równoważne wykonaniu operacji 
powodującej wyprowadzenie napisu ERROR. 

Metoda implementowania instrukcji wyboru została przedstawiona na 
rys. 8.2. Aby ułatwić jej analizę, na rys. 8.3 przedstawiono istotne fragmenty 
definicji operatora OBEY. 


( JANB — CASE STATEMENT IMPLEMENTATION ) 
: (CASE) RO DUP 8 >R 2+ >R ; 
: (EXIT) R> DROP 3 
: CASE(Ć COMPILE (CASE) HERE O „ ; IMMEDIATE 
: WHEN(Ć COMPILE OVER COMPILE = 
(COMPILEJ] IF 3;  IMMEDIATE 

: OTHERC( COMPILE 1  [COMPILE] IF ; IMMEDIATE 
: ) COMPILE (EXIT)  [COMPILE) THEN ; IMMEDIATE 
: JEND COMPILE (EXIT) HERE SWAP ! 

COMPILE DROP ;  IMMEDIATE 


8.2. Implementacja instrukcji wyboru 


Przykład 
Implementacja instrukcji cyklu iteracyjnego 
: (DO) 
R> ROT >R SWAP >R >R ; 
: (LOOP) 


R> R> 14 R> OVER OVER 
< ROT ROT >R >R 
IF 
DUP Q + 
ELSE 
2+ 
THEN >R ; 
: DO 
COMPILE (DO) HERE ; IMMEDIATE 
: LOOP 
COMPILE (LOOP) HERE — , ; IMMEDIATE 
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==, jnNn—— 


IF THEN IF THEN 


(CASE) 
DUP 
(EXIT) 
LIT 
(EXIT) 
(EXIT) 
DROP 
;$ 


OBEY 


KĘ all 
a 


—— —— 
0 


NN Ę—- —— <— —— <—— ——— 
: OBEY _ CASE( WHEN( )  OTHER(Ć ' )  0JEND ; 
8.3. Struktura definicji operatora OBEY 


e W takiej implementacji, zmienna sterująca cyklu może być odzyska- 
na za pomocą operacji I 


R> R> DUP >R SWAP >R ; 
e W praktyce operacje (DO), (LOOP) i I są zdefiniowane w kodzie 
maszynowym. Powoduje to znaczne przyśpieszenie wykonywania cyklu. [] 


9. Słownik operatorów 


Słownik operatorów języka Forth jest strukturą drzewiastą podzieloną na 
podsłowniki. Słownik operatorów składa się z co najmniej jednego podsłownika 
o nazwie FORTH. W podsłowniku tym znajdują się definicje podstawowych 
operatorów języka, w tym operatorów kluczowych do definiowania instrukcji 
strukturalnych. Najczęściej używanymi podsłownikami dodatkowymi są 
EDITOR i ASSEMBLER. W pierwszym z nich znajdują się definicje opera- 
torów umożliwiających przygotowywanie i redagowanie programów źródło- 
wych. W drugim natomiast znajdują się definicje operatorów do generowania 
rozkazów w kodzie maszynowym. 

Do zarządzania słownikami i podsłownikami służą operatory VOCA- 
BULARY, DICTIONARY, DEFINITIONS, CONTEXT i CURRENT. Wy- 
konanie sekwencji 

VOCABULARY nazwa IMMEDIATE 
powoduje utworzenie podsłownika nazwa i związanie go z bieżącym słowni- 
kiem definiowania operatorów. Bezpośrednio po zainicjowaniu procesora 
podsłownikiem tym jest FORTH. 

Jeśli po wykonaniu tej czynności zostanie wykonana operacja nazwa, 
to bieżącym podsłownikiem wyszukiwania operatorów stanie się podsłownik 
nazwa. Fakt ten zostanie odnotowany w zmiennej identyfikowanej przez 
operator CONTEXT. Aż do następnej zmiany podsłownika wyszukiwania, 
przeglądanie słownika w celu znalezienia definicji pewnego operatora będzie 
dotyczyć w pierwszej kolejności podsłownika nazwa, a następnie podsłownika, 
w którym została umieszczona definicja operatora nazwa, tj. — w najprostszym 
przypadku — podsłownika FORTH. 

Zmiana bieżącego podsłownika definiowania może być zreali- 
zowana za pomocą operatora DEFINITIONS użytego w kontekście 

nazwa DEFINITIONS 
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gdzie nazwa jest operatorem zdefiniowanym za pomocą operatora VOCABU- 
LARY. 

Wykonanie rozpatrywanej sekwencji powoduje taką zmianę wartości 
zmiennej identyfikowanej przez operator CURRENT, że bieżącym podsłowni- 
kiem detiniowania staje się ten sam podsłownik, który jest bieżącym słowni- 
kiem wyszukiwania. Oznacza to np., że jeśli w pewnym momencie zostanie 
wykonana sekwencja 

VOCABULARY JOHN 
a następnie zostanie wykonana sekwencja 

JOHN DEFINITIONS 
to zarówno bieżącym podsłownikiem definiowania jak i bieżącym podsłowni- 
kiem wyszukiwania będzie JOHN. 

W ogólnym przypadku struktura słownika może być dość złożona 
i może mieć np. postać przedstawioną na rys. 9.1. W tej przykładowej 


Słowa podstawowe 
podsłownika FORTH 


EDITOR 


EWA 


USERS 


ASSEMBLER 


FORTH 
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strukturze w podsłowniku FORTH znajdują się definicje podsłowników 
EDITOR, USERS i ASSEMBLER, a w podsłowniku USERS znajdują się 
definicje podsłowników JAN i EWA. Utworzenie takiej struktury słownika 
można by np. uzyskać za pomocą sekwencji 

VOCABULARY EDITOR IMMEDIATE 

VOCABULARY USERS IMMEDIATE 

USERS DEFINITIONS 
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VOCABULARY EWA IMMEDIATE 

VOCABULARY JAN IMMEDIATE 

FORTH DEFINITIONS 

VOCABULARY ASSEMBLER IMMEDIATE 

Nic nie stoi na przeszkodzie, aby bieżący podsłownik wyszukiwania 
operatorów był różny od bieżącego podsłownika definiowania. W szczególno- 
ści, jeśli bieżącym podsłownikiem definiowania jest JAN, a bieżącym pod- 
słownikiem wyszukiwania jest EWA, to nowe definicje operatorów są umie- 
szczane w podsłowniku JAN, a wyszukiwanie operatorów odbywa się w całym 
podsłowniku EWA, w całym podsłowniku USERS i w całym podsłowniku 
FORTH. Oczywiście wyszukiwanie kończy się natychmiast po znalezieniu 
operatora. Dzięki temu, w rozłącznych słownikach, mogą występować definicje 
operatorów o tej samej nazwie. 

W celu bliższego zilustrowania powiązań występująćych między opera- 
torami zdefiniowanymi w słowniku na rys. 9.2 przedstawiono skutek zinter- 


CONTEXT 


CURRENT 


V0C—LINC 


LKLLI 


9.2. Powiązania zmiennych, podsłowników i operatorów 
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pretowania — bezpośrednio po zainicjowaniu procesora — sekwencji 

Fl ; 

:F2 ; 

VOCABULARY VA IMMEDIATE 

VA DEFINITIONS 

AI ; 

AŻ ; 

VOCABULARY VB IMMEDIATE 

VB DEFINITIONS 

: Bl ; 

: B2 

VA 

Jak można się przekonać, w słowniku występują listy łączące pod- 
słowniki, jak również listy łączące operatory należące do poszczególnych 
podsłowników. W rozpatrywanym przykładzie wartości zmiennych identyfi- 
kowanych przez operatory CONTEXT i CURRENT są różne, ponieważ po 
wykonaniu przytoczonej sekwencji bieżącym podsłownikiem wyszukiwania jest 
VA, a bieżącym podsłownikiem definiowania jest VB. 

Bliższa analiza definicji operatorów identyfikujących podsłowniki, 
takich jak np. VA 1 VB wykazuje, że w polu parametrów każdego z nich 
znajduje się definicja pseudooperatora, którego nazwą jest spacja. Oczywiście, 
definicja taka może być wytworzona jedynie sztucznie, gdyż spacja nie jest 
słowem. Jest ona jedynie separatorem słów strumienia wejściowego. 


10. Edytor i asembler 


Jak już wspomniano, do najczęściej definiowanych słowników pomocniczych 
należą EDITOR i ASSEMBLER. Oba te podsłowniki znajdują się poza 
definicją języka fig-Forth i tym samym mogą być realizowane na wiele 
sposobów. W każdym z nich znajduje się ustalona przez implementację liczba 
definicji operatorów. 

Operatory podsłownika EDITOR umożliwiają przetwarzanie znaków 
zapisanych w ekranach, natomiast operatory podsłownika ASSEMBLER 
umożliwiają definiowanie operatorów zawierających odwołania do mnemonik 
rozkazów maszynowych i rejestrów. 


Podsłownik EDITOR 


Podczas edycji ekranu, operatory edytora odwołują się do obszaru pamięci 
operacyjnej nazywanego dalej buforem tekstu. W buforze tym mieści się jeden 
wiersz tekstu. Ekran, który ma być poddany edycji, jest sprowadzany do 
pamięci operacyjnej w następstwie zinterpretowania operacji LIST. Po wyko- 
naniu edycji pewnej porcji ekranów, które w nowej postaci znajdują się na ogół 
w pamięci operacyjnej, należy wykonać operację FLUSH, która powoduje 
przeniesienie zaktualizowanych ekranów do pamięci zewnętrznej. Typowe 
edytory umożliwiają ponadto zarówno wykonywanie operacji na wierszach, 
jak również wykonywanie operacji na zawartych w nich ciągach znaków. 

Przygotowanie procesora do posługiwania się definicjami podsłownika 
EDITOR wymaga wykonania operacji n LOAD, gdzie n jest numerem ekranu. 
Spowodowane tym zinterpretowanie definicji zawartych w ekranie n i ewen- 
tualnie ekranach następnych (jeśli posłużono się operatorami — — >) spowo- 
duje m.in. utworzenie definicji podsłownika EDITOR i umieszczenie w nim 
definicji nowych operatorów. 
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Dokładny zestaw i postać operatorów edycyjnych zależy od implemen- 
tacji. Z tego powodu zostaną przytoczone opisy przykładowe. 


PAD ( —— a) (zdefiniowany w podsłowniku FORTH) 
Wykonanie operacji PAD powoduje umieszczenie na szczycie stosu 
parametrów adresu a bufora tekstu. 


LIST (n —— ) (zdefiniowany w podsłowniku FORTH) 
Wykonanie operacji LIST powoduje sprowadzenie do pamięci opera- 
cyjnej ekranu o numerze n i przygotowanie go do edycji. 


CLEAR (n —-— ) 
Wykonanie operacji CLEAR powoduje zapełnienie ekranu o numerze 
n spacjami i przygotowanie go do edycji. 

COPY (nl n2 —— ) 


Wykonanie operacji COPY powoduje przeniesienie zawartości ekranu 
o numerze nl do ekranu o numerze n2. 


FLUSH (—-— ) 
Wykonanie operacji FLUSH powoduje przeniesienie do pamięci 
zewnętrznej ekranów zaktualizowanych w pamięci operacyjnej. 


H (n-—-) 
Wykonanie operacji H (hold) powoduje skopiowanie wiersza o nu- 
merze n do bufora tekstu. 


D (n-—-—) 
Wykonanie operacji D (delete) powoduje skopiowanie wiersza o nu- 
merze n do bufora tekstu, a następnie usunięcie tego wiersza. Powo- 
duje to przesunięcie pozostałych wierszy ”w górę” i zapełnienie wiersza 
nr 15 spacjami. 


T (n-—) 
Wykonanie operacji T (type) powoduje umieszczenie wiersza o nume- 
rze n w buforze tekstu, a następnie wyprowadzenie go. Kursor zostanie 
usytuowany na początku wiersza n. 


R (n-—-—) 
Wykonanie operacji R (replace) powoduje zastąpienie wiersza o nu- 
merze n zawartością bufora tekstu. 


I (n-—) 
Wykonanie operacji I (insert) powoduje wstawienie zawartości bufora 
tekstu w miejsce wiersza o numerze n oraz przesunięcie tego wiersza 
i wierszy następnych *w dół” o jeden wiersz (wiersz nr 15 "gubi się”). 


TOP 


M 
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(n —-) 


Wykonanie operacji E (erase) powoduje zastąpienie wiersza o numerze 
n wierszem składającym się z samych spacji. 


(n-——) 


Wykonanie operacji S (spread) powoduje przesunięcie wiersza o nu- 
merze n oraz wierszy następnych o jeden wiersz *w dół”, a następnie 
umieszczenie w wierszu o numerze n samych spacji (wiersz nr 15 "gubi 


się”). 


(--) 


Wykonanie operacji L (list) powoduje wyprowadzenie zawartości 
bieżącego ekranu. 


(--) 
Wykonanie operacji TOP powoduje usytuowanie kursora na początku 
bieżącego ekranu. 


(n-—) 


Wykonanie operacji M (move) powoduje przesunięcie kursora o 
n pozycji (n może być ujemne). 


(--—) 


Wykonanie operacji F (find) powoduje wprowadzenie ze strumienia 
wejściowego tekstu zakończonego znakiem cr, a następnie odszukanie 
tego tekstu na ekranie. Poszukiwanie rozpoczyna się od bieżącej 
pozycji kursora. Jeśli tekst nie zostanie znaleziony, to jest wyprowa- 
dzany komunikat, a kursor jest ustawiany tak jak po wykonaniu 
operacji TOP. Jeśli tekst zostanie znaleziony, to kursor zostanie 
ustawiony w pozycji za tym tekstem. 


(--) 


Wykonanie operacji N (next) powoduje znalezienie następnego wystą- 
pienia słowa znalezionego za pomocą operacji F. 


(--) 


Wykonanie operacji X (cross) powoduje wprowadzenie ze strumienia 
wejściowego tekstu zakończonego znakiem cr, a następnie odszukanie 
tego tekstu na ekranie i usunięcie go. 


(--) 


Wykonanie operacji C (copy) powoduje wprowadzenie ze strumienia 
wejściowego tekstu zakończonego znakiem cr, a następnie umieszcze- 
nie go na ekranie, począwszy od bieżącej pozycji kursora. 


Podsłownik ASSEMBLER 65 


B (—-) 
Wykonanie operacji B (back) powoduje przesunięcie kursora wstecz 
o taką liczbę pozycji, ile znaków liczył ostatni tekst stanowiący 
argument operacji F, X albo C. 


TILL (——) 
Wykonanie operacji TILL (till end) powoduje wprowadzenie ze 
strumienia wejściowego tekstu zakończonego znakiem cr, a następnie 
usunięcie z wiersza, w którym znajduje się kursor, począwszy od 
bieżącej pozycji kursora, grupy znaków zakończonej wprowadzonym 
tekstem. 


Przykład 
Wykorzystanie operatorów podsłownika EDITOR 
Jeśli w wierszu nr 1 ekranu o numerze 200 znajduje się definicja 
:SET COMPILE GET ; 
to zmiana pierwszego operatora 6 COMPILE na [COMPILE] może być 
zrealizowana np. za pomocą sekwencji 


EDITOR 
200 LIST 1 T 

X COMPILE 

C [COMPILE] 

FLUSH M) 
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Zestaw operatorów zdefiniowanych w podsłowniku ASSEMBLER zależy od 
implementacji procesora. Do zestawu tego należą przede wszystkim operatory 
o nazwach identycznych z mnemonikami rozkazów i rejestrów maszynowych, 
a ponadto operatory kluczowe umożliwiające posługiwanie się asemblerowymi 
instrukcjami strukturalnymi. Ewentualne kolizje nazw operatorów występują- 
cych w podsłowniku ASSEMBLER i nazw operatorów innych podsłowników 
rozstrzygane są wg zasad wyszukiwania operatorów w słowniku. Z tego 
względu nie kolidują ze sobą np. operatory kluczowe IF występujące zarówno 
w podsłowniku FORTH jak i w podsłowniku ASSEMBLER. 
Przygotowanie procesora do posługiwania się definicjami podsłownika 
ASSEMBLER wymaga wykonania operacji n LOAD, gdzie n jest numerem 
ekranu. Spowodowane tym zinterpretowanie definicji zawartych w ekranie 
n i ewentualnie ekranach następnych (jeśli posłużono się operatorami — — >) 
spowoduje m.in. utworzenie definicji podsłownika ASSEMBLER, umieszczenie 
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w nim definicji nowych operatorów, a ponadto rozbudowanie podsłownika 
FORTH o definicje operatorów CODE i C; i modyfikację operatora ;CODE. 

Dokładna postać operatorów zdefiniowanych w podsłowniku AS- 
SEMBLER, jak również postać operatorów CODE i C; zależy od implemen- 
tacji. Z tego powodu zostaną przytoczone opisy przykładowe 


CODE (-—-bc) 

Wykonanie operacji CODE zaczyna się od upewnienia, iż interpreter 
znajduje się w stanie wykonywania. Następnie na stosie parametrów 
jest umieszczana dana słowowa b, której wartość określa bieżącą 
podstawę liczb, oraz dana słowowa c, mająca wartość zmiennej 
identyfikowanej przez operator CONTEXT. Po wykonaniu tych 
czynności zostaje utworzony nagłówek definicji nowego operatora 
o nazwie wyrażonej przez słowo występujące po operatorze CODE. 
Na zakończenie, w zmiennej identyfikowanej przez operator CSP jest 
zapamiętywany bieżący rozmiar stosu parametrów i wykonywana jest 
operacja ASSEMBLER. Wykonanie tej operacji powoduje, że bie- 
żącym podsłownikiem wyszukiwania operatorów staje się ASSEM- 
BLER. W nim właśnie znajdują się definicje operatorów o nazwach 
identycznych z mnemonikami rozkazów maszynowych i rejestrów. 
CODE jest operatorem biernym, zdefiniowanym za pomocą kompila- 
tora: (dwukropek) 


:CODE ?EXEC BASE Q CONTEXT Q 
CREATE !CSP [COMPILE] ASSEMBLER ; 


CG (cb -——-) 

Wykonanie operacji C; zaczyna się od umieszczenia w słowniku 
rozkazu skoku do interpretera wewnętrznego. Rozkaz ten staje się 
ostatnim w ciągu rozkazów definiujących operator w kodzie maszyno- 
wym. Następnie upewnia się, że podczas definiowania operatora nie 
uległ zmianie rozmiar stosu parametrów. Po wykonaniu tych czyn- 
ności przywraca się słownik wyszukiwania i podstawę liczb zapamię- 
tane na stosie parametrów podczas wykonywania operacji CODE. Na 
zakończenie neguje się bit smudge występujący w nagłówku właśnie 
definiowanego operatora. C; jest operatorem biernym, zdefiniowanym 
za pomocą kompilatora : (dwukropek) 


C; NEXTI C3 C, , ?CSP 
CONTEXT ! BASE ! SMUDGE ; 
NEXTI i C3 wyrażają odpowiednio adres i część operacyjną wspo- 
mnianego rozkazu skoku. Ponieważ dane te załeżą od implementacji, 
posłużono się szesnastkowym kodem rozkazu skoku dla mikroproce- 
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sorów Intel 8080 i 280. W implementacjach języka fig-Forth na tych 
mikroprocesorach z reguły obowiązuje następująca definicja adresu 
NEXT1 

" DROP 2+ Q CONSTANT NEXTI 

Posługiwanie się operatorami CODE i C; do definiowania nowych 
operatorów za pomocą sekwencji - 

CODE nazwa rozkazy C; 
wymaga znajomości listy rozkazów komputera, w którym implementowano 
język Forth. Równie ważna jest znajomość struktury interpretera wewnętrzne- 
go. 

Dla skonkretyzowania dalszego opisu, przytoczone tu wyjaśnienia 
zostaną ograniczone do przypadku listy rozkazów mikroprocesora Intel 8080 
oraz interpretera wewnętrznego przedstawionego na rys. 10.1. W celu ułatwie- 
nia posługiwania się rozkazami maszynowymi, w Dodatku B zamieszczono 
krótki opis mikroprocesora Intel 8080 oraz wyszczególniono listę jego rozka- 
zów. 


pushDE : PUSH 
pushHL : PUSH 
NEXT1 : LDAX 
MOV 
INX 
LDAX 
MOV 
INX 
NEXT2 : MOV 
INX 
MOV 
XCHG 
PCHL 
10.1. Interpreter wewnętrzny 


" 
P- 


o = m 0 z © © r 0 = 0 
* 
a 


* 
kc 


Podczas wykonywania interpretacji, rolę licznika interpretera IP 
odgrywa rejestr BC. W rejestrze tym jest przechowywany adres wskazania 
następnego interpretowanego operatora lub adres wskazania danej stanowiącej 
słownikowy argument właśnie interpretowanego operatora. W chwili podjęcia 
wykonywania operacji wskazanej przez pole kodu bieżąco interpretowanego 
operatora rejestr DE zawiera wskazanie drugiego bajtu tego pola kodu, 
a rejestr HL zawiera adres podprogramu określonego przez to pole. Spośród 
trzech wymienionych tu rejestrów, jedynie BC musi być zachowany między 
kolejnymi wykonaniami operatorów. W przypadku gdy bieżący operator nie 
jest zdefiniowany za pomocą kodu, lecz za pomocą innych operatorów, 
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wymaga to okresowego przechowywania tego rejestru na stosie powrotów, tak 
jak ilustrowano to już uprzednio. 

W celu poglądowego przedstawienia właściwości analizowanej tu 
implementacji języka Forth na rys. 10.2 uwidoczniono stan rejestrów BC, DE 


Stos powrotów 


10.2. Rejestry interpretera wewnętrznego 


i HL oraz stan stosu powrotów, w momencie podjęcia wykonywania operacji 
DUP — wyrażonej w kodzie maszynowym i wywoływanej podczas realizowa- 
nia operacji TWO, wywołanej z kolei podczas wykonywania operacji ONE. 


Przykład 


Zdefiniowanie operatora SWITCH, którego zadaniem jest zamiana miejscami 
górnego i dolnego bajtu danej słowowej znajdującej się na szczycie stosu 


parametrów. 
CODE SWITCH 
H POP ( POP H ) 
AL MOV (MOV AJL ) 
L H MOV (MOV LM ) 
H A MOV (MOV HA ) 
H PUSH (PUSH H ) 


C; 
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e Pole parametrów przytoczonej definicji składa się z 8 bajtów. 

e Zdefiniowanie tego samego operatora za pomocą kompilatora 
: (dwukropek) 

: SWITCH 

DUP SPQ 1+ Q SWAP 
DROP SWAP DROP ; 
spowodowałoby utworzenie poła parametrów składającego się z 16 bajtów. 

e Czas wykonywania operacji SWITCH wyrażonej za pomocą opera- 
torów CODE i C; jest 10-krotnie krótszy od czasu wykonania tej operacji 
wyrażonej za pomocą operatorów : i ;. 

e Wadą definiowania za pomocą operatorów CODE i C; jest ko- 
nieczność posługiwania się rozkazami maszynowymi w notacji odwrotnej (np. 
H POP zamiast POP H) oraz wymaganie znajomości implementacji inter- 
pretera wewnętrznego. W wielu przypadkach niezbędna jest także znajomość 
adresów niektórych zmiennych procesora; np. zmiennej określającej bieżący 
adres szczytu stosu powrotów. i] 
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Posługiwanie się podsłownikiem ASSEMBLER, z jego definicjami mnemonik 
rozkazowych, nie stanowi warunku koniecznego definiowania operatorów 
w kodzie maszynowym. 

Jeśli używanym mikroprocesorem jest INTEL 8080, a struktura 
interpretera wewnętrznego jest taka jak podano w poprzednim rozdziale, to 
definicje operatorów wyrażone za pomocą rozkazów maszynowych mogą być 
przedstawione za pomocą dwóch pomocniczych operatorów nazwanych tu 


„ly, 


(-7-b) 
Wykonanie operacji :: powoduje wprowadzenie ze strumienia wejścio- 
wego jednego słowa i utworzenie definicji operatora o nazwie wyrażo- 
nej przez to słowo. W polu kodu zostaje umieszczony adres pola 
parametrów, w polu nazwy zostaje ustawiony bit smudge, a na stosie 
parametrów zostaje zapamiętana bieżąca podstawa liczb. Po wykona- 
niu tych czynności podstawa liczb zostaje zmieniona na szesnastkową, 
a interpreter zostaje ustawiony w stan wykonywania. :: zdefiniowano 
tu jako operator bierny, posługując się kompilatorem : (dwukropek) 
CREATE BASE Q HEX ; 


s (b>-) 
Wykonanie operacji ; powoduje umieszczenie w słowniku rozkazu 
JMP NEXT reaktywującego interpreter, usunięcie bitu smudge usta- 
wionego w polu nazwy podczas wykonywania operacji :: oraz odtwo- 
rzenie ze stosu parametrów pierwotnej podstawy liczb. ;; zdefiniowano 
tu jako operator bierny, posługując się kompilatorem : (dwukropek) 
:; NEXT1I C3 C, , 
SMUDGE BASE ! ; 
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Dysponując takimi definicjami — stanowiącymi rozszerzenie języka Forth 
— można podać alternatywną definicję rozpatrywanego uprzednio operatora 
SWITCH 


: SWITCH 
El C, ( POP H 
7DC, (MOV A 


67 C, (MOVH, 

ES C, ( PUSH H ) 
Oczywiście takie postępowanie nie jest zbyt wygodne, ponieważ wymaga 
posługiwania się rozkazami w ich reprezentacji szesnastkowej. Tym niemniej 
stanowi ono potwierdzenie tezy, iż tworzenie definicji wyrażonych w kodzie 
maszynowym nie wymaga posługiwania się operatorami podsłownika AS- 
SEMBLER. 

W analogiczny sposób, a więc bez posługiwania się mnemonikami 

rozkazów i rejestrów, mogą być definiowane kompilatory. Przykładem tego 
może być definicja kompilatora VECTOR, której można nadać postać 


: VECTOR CREATE SMUDGE ALLOT 


CODE BASE Q HEX 
E1 C, (POP H) 
13 C, (INX D) 
19 C, (DAD D) 
E5 C, ( PUSH H 
NEXTI C3C,, ( JMP NEXTI1 ) 
BASE ! 


Zinterpretowanie przytoczonej sekwencji operatorów powoduje utwo- 
rzenie definicji operatora VECTOR, który ma dokładnie takie same właści- 
wości jak operator VECTOR zdefiniowany za pomocą operatorów <BUILDS 
i DOES> 


: VECTOR <BUILDS ALLOT DOES> + ; 
jednak oszczędniej gospodaruje pamięcią operacyjną, ponieważ kompiluje 
operatory, których pola parametrów są o 2 bajty krótsze. 

Występująca w *”oszczędniejszej” wersji kompilatora operacja ;CODE 
jest operacją czynną, której wykonanie powoduje m.in. umieszczenie w słowni- 
ku wskazania operatora ;CODE), wykonanie operacji SMUDGE dotyczącej 
kompilatora VECTOR oraz ustawienie interpretera w stan wykonywania. 
Podczas przyszłego wykonania operacji VECTOR, np. w kontekście 

5 VECTOR STRING 
wykonanie operacji ;CODE) spowoduje taką zmianę pola kodu operatora 
STRING, że będzie ono zawierać adres części wykonawczej kompilatora, tj. 
tego bajtu słownika, w którym umieszczono rozkaz POP H. 
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Należy zwrócić uwagę na to, iż użycie operatora SMUDGE w definicji 
kompilatora VECTOR jest niezbędne. Gdyby nie użyto tego operatora, to 
operator STRING nie byłby w pełni zdefiniowany, a zatem nie mógłby być 
odnaleziony w słowniku. 

Biorąc pod uwagę to, iż definiowanie operatorów i kompilatorów bez 
odwoływania się do mnemonik nie jest zbyt wygodne, ponieważ wymaga 
posługiwania się rozkazami w ich reprezentacji szesnastkowej, w większości 
implementacji języka Forth występuje zbiór ekranów zawierających definicje 
mnemonik podsłownika ASSEMBLER. 

W celu wyjaśnienia zasad przygotowywania treści wymienionych 
ekranów na rys. 11.1 przytoczono niezbędne definicje umożliwiające posługi- 
wanie się mnemonikami rozkazowymi. Ponadto podano tam także kilka 
przykładowych operatorów kluczowych umożliwiających asemblerowe progra- 
mowanie strukturalne. 

Sposób posługiwania się przytoczonymi definicjami zostanie wyjaśnio- 
ny na przykładzie operatora ?SWAP. Operator ten jest zdefiniowany w taki 
sposób, że wykonanie operacji ?ŚWAP powoduje zdjęcie ze stosu parametrów 
i rozpatrzenie danej słowowej, a następnie — jeśli ma ona wartość różną od 
0 — wykonanie operacji SWAP. 

Operator ?2SWAP mógłby zostać zdefiniowany za pomocą kompilato- 
ra : (dwukropek) jako 

:?SWAP IF SWAP THEN ; 
ale w celu zilustrowania zasad posługiwania się operatorami podsłownika 
ASSEMBLER zostanie zdefiniowany za pomocą operatora CODE 

CODE ?SWAP 

H POP 
A L MOV 
H ORA 
0= NOT 
IF 
H POP 
XTHL 
H PUSH 
THEN 
C; 

Przebieg definiowania operatora ?SWAP wyrażonego za pomocą 
sekwencji odwołań do operatorów podsłownika ASSEMBLER jest następują- 
Cy: 

e Wykonanie operacji CODE powoduje m.in. utworzenie nagłówka 
definicji operatora ?SWAP i uczynienie podsłownika ASSEMBLER bieżącym 
podsłownikiem wyszukiwania. 

e Wykonanie operacji H powoduje umieszczenie — na stosie para- 
metrów — danej słowowej o wartości 4, identyfikującej rejestr H. 


FORTH DEFINITIONS 
VOCABULARY ASSEMBLER  IMMEDIATE 


: CODE BASE A CONTEXT Q CREATE 
!CSP [COMPILE] ASSEMBLER ; 


ASSEMBLER DEFINITIONS 
HEX 


DROP 3d+ 4a CONSTANT NEXT1 
: €; NEXT1 C3 C, „ ?CSP 


CONTEXT ! BASE ! SMUDGE ; 
3: 2C NEXT1 C3 C, „ ?CSP 
CURRENT O CONTEXT ! SMUDGE ; 


: 8% DUP + DUP + DUP + ; 


: 1JMI <BUILDS C„, DOES> (CO C, ; 

: 2MI <BUILDS C, DOES> CA + C, ; 

: 3MI <BUILDS C, DOES> (0 SWAP 8» + CC, ; 
4MI <BUILDS C, DOES> (CA C, , ; 


CONSTANT B 
CONSTANT C 
CONSTANT D 
CONSTANT E 
CONSTANT H 
CONSTANT L 
CONSTANT M 
CONSTANT A 


NO OW 5 W ND — © 


E3 1MI XTHL 
37 1MI STC 
1F 1MI RAR 
BO 2MI ORA 


C1 3MI POP 
C5 3MI PUSH 


03 3MI INX 
CJ 4MI JMP 
CD 4MI CALL 


: MOV SWAP 8x 40 + + CC, 3 


C2 CONSTANT O= ( jnz ) 
F2 CONSTANT O< (jp ) 


s: NOT 8 OR ; 

: IF c, HERE O „ 3 

: THEN HERE SWAP ! ; 

: ELSE C3 IF ROT SWAP THEN ; 


* ASSEMBLER CFA ” ;CODE 8 + ! 


DECIMAL 
FORTH DEFINITIONS 


11.1. Definicje operatorów podsłownika ASSEMBLER 
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e Wykonanie operacji POP, skompilowanej za pomocą kompilatora 
3MI, powoduje wykonanie sekwencji 

CQ SWAP 8: + C, 
tj. umieszczenie na stosie parametrów, a następnie przeniesienie do słownika, 
danej bajtowej reprezentującej rozkaz POP H. 

e Wykonanie sekwencji operacji 

A L MOV 
powoduje w analogiczny sposób umieszczenie w słowniku bajtu, reprezentują- 
cego rozkaz MOV AJL. 

e Wykonanie sekwencji operacji 

0= NOT 
powoduje umieszczenie na stosie parametrów części operacyjnej rozkazu JZ. 

e Wykonanie operacji 

IF 
powoduje umieszczenie w słowniku rozkazu JZ a, gdzie a jest adresem 
ostatniego bajtu słownika tuż po wykonaniu operacji THEN. 

e Wykonanie operacji ©; powoduje umieszczenie w definicji operatora 
?SWAP rozkazu maszynowego JMP NEXTI1 oraz usunięcie z nagłówka 
definiowanego operatora bitu smudge, umieszczonego tam podczas wykony- 
wania operacji CODE. 

e Ostatecznie pole parametrów operatora ?SWAP uzyskuje postać 
ciągu rozkazów, który można przedstawić. symbolicznie jako 


POP H 
MOV AL 
ORA H 
JZ skip 
POP H 
XTHL 

PUSH H 

skip: 


JMP NEXT1 
Poprzestając na tych wyjaśnieniach, pozostaje jedynie uzasadnić, 
jakiemu celowi służy sekwencja 
" ASSEMBLER CFA * ;CODE 8 + ! 
występująca w ostatnim wierszu rys. 11.3. 
Przed wykonaniem tej sekwencji definicja operatora ;CODE ma 
postać 
:;CODE ?CSP COMPILE (CODE) 
[COMPILE] [ SMUDGE 
a po jej wykonaniu ma postać 
:;CODE ?CSP COMPILE (;CODE) 
[COMPILE] [ [COMPILE] ASSEMBLER 
; IMMEDIATE 


; IMMEDIATE 
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Dzięki dokonaniu takiej zmiany, bezpośrednio po operatorze ;CODE 
mogą występować mnemoniki rozkazów maszynowych — zakończone odwo- 
łaniem do operatora ;C. Umożliwia to zapisanie rozpatrywanej uprzednio 
definicji kompilatora VECTOR w postaci znacznie wygodniejszej, a mianowi- 
cie 


: VECTOR CREATE SMUDGE ALLOT 
;CODE 
H POP 
D INX 
D DAD 
H PUSH 
;C 


12. Programowanie hybrydowe 
Forth-asembler 


Posługiwanie się operatorami CODE, ;CODE (w wersji zmodyfikowanej) oraz 
C; umożliwia łatwe definiowanie za pomocą rozkazów maszynowych prostych 
operatorów i części wykonawczych kompilatorów. 

Chociaż posługiwanie się rozkazami w kodzie maszynowym powinno 
być zredukowane do minimum, niejednokrotnie okazuje się, że repertuar 
środków programowych dostarczonych przez język Forth jest zbyt ubogi. 
W takich przypadkach nieodzowne jest odwołanie się do programowania 
asemblerowego. 

Jeśli potrzeba odwołania się do operatora wyrażonego za pomocą 
rozkazów maszynowych ujawnia się w ciągu operatorów języka Forth, to 
wystarczy uprzednio zdefiniować pomocniczy operator o definicji wyrażonej 
w kodzie maszynowym i odwołać się do niego. Sytuacja jest nieco trudniejsza, 
gdy pożądane jest, aby w ciągu rozkazów maszynowych wystąpiły odwołania 
do operatorów spoza podsłownika ASSEMBLER. W takim przypadku należy 
definicję rozbić na kilka prostszych i pomiędzy odwołania do nich wstawić 
odwołania do operatorów spoza wspomnianego podsłownika. 

Alternatywnym rozwiązaniem problemu programowania hybrydowego, 
tj. łączenia instrukcji języka wysokiego poziomu i asemblera, jest opracowanie 
definicji operatorów hybrydowych umożliwiających dowolne przełączanie się 
między operatorami zwykłymi i rozkazowymi. 

Chociaż trudno jest ocenić zakres zastosowań takich operatorów, 
nazwanych tu ASM( i )FORTH oraz FORTH( i )ASM, przeanalizowanie ich 
definicji należy uznać za pożyteczny sprawdzian biegłości posługiwania się 
językiem Forth. 

Przykładowe definicje hybrydowe zawierające odwołania do wymie- 
nionych tu operatorów przedstawiono na rys. 12.1 i 12.2. Jak można zauważyć, 
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: 2/ DUP 
ASM(Ć H POP 
A H MOV 
A ORA 
0< IF 
STC 
THEN 
RAR 
H A MOV 
A L MOV 
RAR 
L A MOV 
H PUSH  )FORTH 
SWAP ! 
12.1. Definicja operatora 2/ 


. 
, 


definicja operatora 2/ rozpoczyna się od operatorów zwykłych, po czym 
następuje operator ASM|(, ciąg operatorów rozkazowych, operator )FORTH 
1 ponownie operatory zwykłe. Definicja operatora 2+ rozpoczyna się od ciągu 
operatorów rozkazowych, po którym następuje operator FORTH/(, operatory 
zwykłe, operator )ASM i ponownie operatory rozkazowe. 


CODE 2* H POP 
H PUSH 
H PUSH 
FORTH ( 
a DUP + 
JASM 
D POP 
H POP 
ME MOV 
H INX 
MD MOV 
c; 
12.2. Definicja operatora 2e 


Wykonanie operacji 2/ i 2* powoduje odpowiednio: podzielenie 
i pomnożenie przez 2 danej słowowej, której adres znajduje się na szczycie 
stosu parametrów. Między innymi powoduje to, że w następstwie wykonania 
sekwencji —81 SPQ 2/ zostanie wyprowadzona liczba —41, a w następstwie 
wykonania sekwencji 40 SPQ 2+ zostanie wyprowadzona liczba 80. 
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FORTH DEFINITIONS 

: ASMC BASE Q CONTEXT a HERE 6 + , 
COMPILE BRANCH HERE O , 
HERE 2+ „ ([COMPILE] ASSEMBLER 
[COMPILE] [ ; IMMEDIATE 


ASSEMBLER DEFINITIONS 
: JFORTH NEXT JMP HERE OVER — SWAP ! 
CONTEXT ! BASE ! ] ; 


ASSEMBLER DEFINITIONS 
CODE (POP) L C MOV 
H B MOV 
XTHL 
CL MOV 
B H MOV 
C; 
: FORTH(Ć BASE A CONTEXT a ” (POP) 
CALL ] COMPILE >R ; 


FORTH DEFINITIONS 

: JASM COMPILE R> HERE 2+ „ HERE 2+ 
ASSEMBLER B POP FORTH 
CONTEXT ! BASE !  (COMPILE] ASSEMBLER 
[COMPILE] [ ; IMMEDIATE 

12.3. Definicje operatorów do programowania hybrydowego 


, 


Proponowaną implementację czterech operatorów hybrydowych 
przedstawiono na rys. 12.3. Dla ułatwienia ich analizy na rys. 12.4 przytoczono 
strukturę definicji operatora 2/, a na rys. 12.5 wybrane fragmenty struktur 
definicji operatorów 

FORTH(, )ASM, (POP) i 2». 


BRANCH 


Wkompilowane Wkompilowane 
przez ASM( przez )FORTH 


12.4. Struktura definicji operatora 2/ 
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(POP) | 


| -- 
FORTH( | T JASM | 


a A 


POP 


A 
l I [| I 
LL [I l z 
CAL | |  POPBI 


pm p] 
Wkompilowane Wkompilowane 
przez FORTH( _ przez )ASM 


12.5. Struktury definicji operatorów do programowania hybrydowego 


13. Komunikowanie się 
z terminalem 


Terminalem, z którym komunikuje się procesor języka Forth, jest zazwyczaj 
konsola składająca się z klawiatury i monitora albo klawiatury i drukarki. 
Wszystkie operacje wejścia/wyjścia, które dotyczą terminala wykorzystują 
operatory podstawowe KEY, EMIT, CR i *TERMINAL. Wykonanie operacji 
C/L powoduje umieszczenie — na szczycie stosu parametrów — danej 
słowowej określającej rozmiar wiersza ekranu w znakach. 

Wprowadzenie większych porcji znaków umożliwiają operatory 
EXPECT, WORD i QUERY. Po wprowadzeniu danych znakowych do 
pamięci operacyjnej mogą być one przetworzone na dane liczbowe. Do tego 
celu służą operatory NUMBER i DPL. Podczas wykonywania takiej konwersji 
jest uwzględniana bieżąca podstawa liczb, określona przez zmienną identyfiko- 
waną przez operator BASE. 


EXPECT (an ——) 


Wykonanie operacji EXPECT powoduje wprowadzenie z klawiatury 
terminala nie więcej niż n znaków i umieszczenie ich w polu pamięci 
operacyjnej, począwszy od adresu a. Wprowadzenie jest kończone na 
podstawie licznika znaków albo po napotkaniu znaku cr (powrót 
karetki). Znak cr nie jest wprowadzany do pola. Wprowadzone znaki 
są kończone co najmniej jednym znakiem o kodzie 0. Liczba takich 
znaków nie przekracza 3. 


WORD (c —— ) 
Wykonanie operacjj WORD zaczyna się od zdefiniowania dolnego 
bajtu danej słowowej c jako ogranicznika. Następnie pomijane są 
znaki ogranicznika występujące w strumieniu wejściowym, a znaki 
następne, poprzedzone jednobajtowym licznikiem znaków, są umiesz- 
czane w polu pamięci operacyjnej, rozpoczynającym się od pierwszego 
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wolnego bajtu słownika. Wprowadzanie kończy się po napotkaniu 
ogranicznika, znaku cr albo znaku o kodzie 0. Ostatnim znakiem 
umieszczonym w polu pamięci jest spacja. 


QUERY ( —-— ) 
Wykonanie operacji QUERY powoduje wprowadzenie z klawiatury 
do bufora terminala nie więcej niż 80 znaków. Wprowadzanie jest 
kończone na podstawie licznika znaków albo po napotkaniu znaku cr. 
Znak cr nie jest umieszczany w buforze terminala. Wprowadzone 
znaki są kończone co najmniej jednym znakiem o kodzie 0. Liczba 
takich znaków nie przekracza 3. 


NUMBER (a —— db ) 

Wykonanie operacji NUMBER powoduje konwersję liczby zapisanej 
za pomocą ciągu znaków kodu ASCII na daną dwusłowową db. 
Przyjmuje się, że rozpatrywany ciąg znaków jest umieszczony w pa- 
mięci operacyjnej począwszy od adresu a 1 rozpoczyna się od bajtu 
określającego rozmiar ciągu poddawanego konwersji. Jeśli w rozpatry- 
wanym ciągu znaków występują znaki . (kropka), to pozycja ostatnie- 
go z takich znaków zostanie zapamiętana w zmiennej indentyfikowa- 
nej przez operator DPL. 


Przykład 


Zdefiniowanie operatora określającego parzystość liczby pochodzącej z klawia- 
tury terminala 
:PARITY 0 BLK ! 0 WORD HERE NUMBER 
„ = ”* DROP 1 AND IF 


.. ODD” 
ELSE 

.* EVEN” 
THEN 
CR ; 


e Wykonanie sekwencji O BLK ! powoduje nadanie zmiennej identyfi- 
kowanej przez operator BLK wartości O, tj. utożsamienie strumienia wejścio- 
wego z ciągiem znaków pochodzących z terminala. 

e Wykonanie operacji 0 WORD powoduje wprowadzenie z terminala 
jednego wiersza tekstu i umieszczenie go w buforze słowa. 

e Wykonanie operacji NUMBER powoduje konwersję liczby wpro- 
wadzonej do bufora słowa. 

e Jeśli np. zostanie wprowadzony z terminala napis PARITY 44, to na 
ekranie pojawi się tekst 

PARITY 44 = EVEN C] 
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Wyprowadzenie tekstów wieloznakowych umożliwiają operatory 
TYPE i COUNT, wyprowadzanie liczb operatory . (kropka), .R, D. i DR, 
a redagowanie liczb zestaw operatorów 

<qd+  d  q4FS + > HOLD SIGN 


TYPE (an —— ) 
Wykonanie operacji TY PE powoduje wyprowadzenie n znaków z pola 
pamięci operacyjnej rozpoczynającego się od adresu a. 


COUNT (a—-— bn) 
Wykonanie operacjj COUNT powoduje zastąpienie — na stosie 
parametrów — adresu a ciągu znakowego rozpoczynającego się od 
licznika znaków, adresem b = a + 1, pierwszego znaku za licznikiem 
oraz samym licznikiem n. Operacja COUNT może być wykorzystana 
do przygotowania parametrów dla operacji TYPE. 


<+ (-—-) 
Wykonanie operacji < 4+ powoduje wykonanie czynności wstępnych 
przed konwersją danej dwusłowowej. 


+ (a——b) 
Wykonanie operacji 4+ powoduje umieszczenie — w buforze liczby 
— najmniej znaczącej cyfry danej dwusłowowej bez znaku a i za- 
stąpienie jej — na stosie parametrów — daną dwusłowową b stano- 
wiącą rezultat dzielenia danej a przez bieżącą podstawę liczb. 


+S (a —— b) 
Wykonanie operacji 4+S powoduje umieszczenie — w buforze 
liczby — wszystkich cyfr danej dwusłowowej bez znaku a i zastąpienie 
jej — na stosie parametrów — daną dwusłowową b o wartości 0. 


+> (v=—— an) 
Wykonanie operacji ++ > powoduje zakończenie redagowania liczby 
i udostępnienie — na stosie parametrów — adresu a i liczby znaków 
n ciągu znaków w kodzie ASCII, stanowiącego rezultat redagowania. 


HOLD (c —-— ) 
Wykonanie operacji HOLD powoduje umieszczenie w buforze liczby 
znaku reprezentowanego w dolnym bajcie danej słowowej c. 


SIGN (nv ——v) 
Wykonanie operacji SIGN powoduje umieszczenie w buforze liczby 
znaku — (minus), ale tylko wtedy, gdy dana słowowa n ma wartość 
ujemną. Następnie dana słowowa n i dana dwusłowowa v zostają 
zastąpione na stosie parametrów daną v. 
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Przykład 


Zdefiniowanie operatora PHONE wykorzystywanego do wyprowadzania 
numeru telefonu w postaci dd-dd-dd. 
: PHONE 
<+ +4 q4+ 2D HOLD 
+ d 2D HOLD 
+S  4+> TYPE ; 

e Napis 2D jest liczbą w kodzie szesnastkowym, reprezentującą znak 
— (minus) w kodzie AŚCII. 

e Kolejne operatory +4: i operator 4+S dotyczą cyfr liczby rozpatrywa- 
ny od ostatniej do pierwszej. W szczególności, wykonanie sekwencji < ++ 2D 
HOLD + +8 +:> spowodowałoby wyprowadzenie liczby zakończonej 
minusem, a nie rozpoczynającej się od znaku minus. 

e Jeśli z klawiatury terminala zostanie np. wprowadzony napis 
495.086 PHONE, to na ekranie pojawi się tekst 495.086 PHONE 
49-50-86. 0 


14. Zarządzanie 
pamięcią zewnętrzną 


W zestawie operatorów języka Forth występują takie, które dotyczą pamięci 
zewnętrznej. W tych implementacjach, w których nie przewidziano zewnętrznej 
pamięci masowej, są realizowane operacje na pamięci symulowanej. Dzięki temu 
zostają zachowane zasady współpracy zewnętrznej, a co najwyżej zmniejsza się 
jej rozmiar. 

W większości implementacji przyjmuje się, że pamięć zewnętrzną 
stanowią dwie grupy bloków związanych ze stacjami dyskowymi identyfikowa- 
nymi przez operatory DRO i DR1. W odwołaniach do bloków mogą być 
używane ich numery względne, liczone od 0 dla każdej grupy osobno, albo 
numery bezwzględne liczone od 0 względem zerowego bloku związanego ze 
stacją identyfikowaną przez DRO. Rozmiar każdego bloku może być określony 
za pomocą operatora B/BUF, a adres bezwzględny zerowego bloku dowolnej 
z grupy bloków — za pomocą operatora OFFSET. 

Bloki sprowadzone do pamięci operacyjnej są przechowywane w bu- 
forach, po jednym bloku w buforze. Tak jak pokazano na rys. 14.1, każdy bufor 
jest zakończony parą znaków o kodzie 0 i rozpoczyna się daną słowową, która 
dzieli się na dwie części: bit update i numer danego bloku. Jeśli bit update 
— ustawiony za pomocą operacji UPDATE — ma wartość I, to oznacza, że 
dany blok został zmodyfikowany w pamięci operacyjnej i wymaga zaktualizo- 
wania w pamięci dyskowej. Służy do tego operator FLUSH. Sprowadzenie 
bloku do pamięci operacyjnej umożliwia operator BLOCK, natomiast zare- 
zerwowanie bufora dla bloku o podanym numerze, operator BUFFER. Należy 
mieć na uwadze to, iż parametrem operatora BLOCK jest numer względny 
bloku, natomiast parametrem operatora BUFFER jest numer bezwzględny. 
Ma to znaczenie w przypadku posługiwania się stacją dyskową identyfikowaną 
przez operator DR1. 
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Bit update Licznik 


„ "" 
— 
— 
-— 
a 
„- 


0 0100) 
14.1. Bufor dyskowy 


OFFSET ( —— a) 


DRO 


DR1 


B/BUF 


Wykonanie operacji OFFSET powoduje umieszczenie — na stosie 
parametrów — adresu a zmiennej określającej numer bezwzględny 
zerowego bloku bieżącej stacji dyskowej. 


(—-) 

Wykonanie operacji DRO czyni stację nr 0 stacją bieżącą i powoduje 
nadanie zmiennej identyfikowanej przez operator OFFSET wartości 
równej bezwzględnemu numerowi zerowego bloku dysku nr 0. 


(--) 

Wykonanie operacji DR1 czyni stację nr 1 stacją bieżącą i powoduje 
nadanie zmiennej identyfikowanej przez operator OFFSET wartości 
równej bezwzględnemu numerowi zerowego bloku dysku nr 1. 


(-—n) 
Wykonanie operacji B/BUF powoduje umieszczenie — na stosie 
parametrów — danej słowowej określającej rozmiar bufora dyskowe- 
go, wyrażony w bajtach. 


BLOCK (n—-—a) 


Wykonanie operacji BLOCK zaczyna się od sprawdzenia, czy 
w jednym z buforów dyskowych w pamięci operacyjnej znajduje się już 
blok o numerze względnym n. Jeśli go tam nie ma, to zostanie 
sprowadzony z pamięci dyskowej. Następnie dana słowowa n, znajdu- 
jąca się na stosie parametrów, zostanie zastąpiona adresem a pierwsze- 
go bajtu danych tego bufora w pamięci operacyjnej, w którym znajduje 
się blok dyskowy o numerze n. 


BUFFER (n —— a) 


Wykonanie operacjj BUFFER powoduje zarezerwowanie bufora 
w pamięci operacyjnej dla bloku dyskowego o numerze bezwzględnym 
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n. Następnie dana słowowa n, znajdująca się na stosie parametrów, 
zostanie zastąpiona adresem a pierwszego bajtu danych zarezerwowa- 
nego bufora. 


UPDATE ( —-— ) 
Wykonanie operacjj UPDATE powoduje ustawienie bitu update 
w pierwszym bicie ostatnio użytego bufora dyskowego w pamięci 
operacyjnej. 


Przykład 


Skopiowanie zawartości bloku nr 20 pewnej stacji dyskowej do bloku nr 30 tej 
samej stacji 

30 OFFSET Q + BUFFER UPDATE 

20 BLOCK 

SWAP B/BUF CMOVE 

FLUSH D 


W tych przypadkach, gdy pamięć masowa jest rozpatrywana jako 
zestaw ekranów, znacznie wygodniej jest posługiwać się operatorem (LINE) 
oraz w ograniczonym zakresie operatorami B/SCR i SCR. 


(LINE) (!1s—— an) 
Wykonanie operacji (LINE) zapewnia sprowadzenie do pamięci opera- 
cyjnej tego bloku pamięci zewnętrznej, który zawiera wiersz I ekranu s. 


VOCABULARY EDITOR  IMMEDIATE 
EDITOR DEFINITIONS 
: TEXT HERE C/L 1+ BL FILL 
WORD HERE PAD C/L 1+ CMOVE 3; 
: LINE DUP FFFO AND 17  ?ERROR 
SCR a (LINE) DROP ; 
3 -MOVE LINE C/L CMOVE UPDATE 3 
: H LINE PAD 1+ C/L DUP PAD C! CMOVE ; 
: E LINE C/L BL FILL UPDATE 3 
: S DUP 1 - 0E 
DO I LINE I 1+ -MOVE -1 +LOOP E ; 
:D DUP H OF DUP ROT 
DO I 1+ LINE I -MOVE LOOP E 3 
: R PAD 1+ SWAP -MOVE 3 
:P 1 TEXT R ; 
:I DUP S R 3 
s CLEAR SCR ! 10 O 
DO FORTH I EDITOR E LOOP ; 
14.2. Definicje operatorów podsłownika EDITOR 


B/SCR 


SCR 
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Po wykonaniu tej czynności, na stosie parametrów pozostają: adres 
a pierwszego bajtu wiersza w buforze dyskowym w pamięci opera- 
cyjnej i rozmiar tego wiersza w znakach n. 


(--—n) 
Wykonanie operacji B/SCR powoduje umieszczenie — na stosie 
parametrów — danej słowowej n określającej z ilu bloków dyskowych 
składa się jeden ekran. 


(--a) 
Wykonanie operacji SCR powoduje umieszczenie — na stosie para- 
metrów — adresu a zmiennej określającej numer bloku, którym 


posłużono się w ostatnio wykonanej operacji LIST. 


Biorąc pod uwagę przytoczone opisy, na rys. 14.2 przedstawiono 


zestaw definicji niektórych operatorów edycyjnych podsłownika EDITOR. 


15. Grafika i animacja 


Operacje umożliwiające oprogramowanie grafiki 1 animacji nie wchodzą 
w zakres języka Forth. Jest to w głównej mierze spowodowane różnorodnością 
sprzętu komputerowego, zarówno procesorów jak i urządzeń zewnętrznych. 
Tym niemniej, w większości implementacji dostępne są operacje podstawowe 
umożliwiające wykreślanie linii i punktów. Znacznie rzadziej są natomiast 
dostępne operacje umożliwiające programowanie animacji. 

W celu zilustrowania sposobu implementowania podstawowych ope- 
racji graficznych na rys. 15.1 przedstawiono definicje operatorów CLEAR, 
PLOT i DRAW. Definicje te zostały umieszczone w podsłowniku GRAPHICS 
1 dotyczą mikrokomputera Amstrad 6128 działającego w trybie z wysoką 
rozdzielczością 640 x 200 pixeli. Dla skrócenia opisu tylko jeden z operatorów 
zdefiniowano w kodzie maszynowym. W definicji tej posłużono się mnemoni- 
kami asemblera dla mikroprocesora Intel 8080. Takie postępowanie jest 
dopuszczalne, ponieważ użyty w Amstradzie mikroprocesor 280 jest zgodny 
z tym mikroprocesorem. 


CLEAR ( —— ) 
Wykonanie operacji CLEAR powoduje wygaszenie ekranu i ustalenie 
pozycji bieżącej w lewym dolnym rogu ekranu. Pozycja ta ma 
współrzędne (0,0). 


PLOT (xy —— ) 
Wykonanie operacji PLOT powoduje uczynienie pozycją bieżącą 
pozycji o współrzędnych (x,y), a następnie umieszczenie na tej pozycji 
punktu świecącego (piksela). 


DRAW (xy —-—) 
Wykonanie operacji DRAW powoduje wykreślenie odcinka, składają- 
cego się z punktów świecących, od punktu określonego przez pozycję 
bieżącą do punktu o współrzędnych (x,y). 


Definicja operacji CLEAR wykorzystuje fakt, iż poszczególne punkty 
wyświetlane na ekranie stanowią odwzorowanie bitów bufora ekranu w pamięci 
operacyjnej. Bufor ekranu zajmuje zazwyczaj obszar od C000 (— 16384) do 
FFFF (—1) i jest podzielony na 8 stref o rozmiarze 2048 bajtów każda. Z tych 
2048 bajtów wykorzystuje się tylko pierwsze 2000 bajtów. Jeśli przyjąć, że 
ekran jest podzielony w pionie na 25 pasków po 8 wierszy każdy, to pierwsze 
wiersze każdego paska następują po sobie w pierwszej strefie bufora ekranu, 
drugie wiersze w drugiej strefie, itd. Wynika stąd, że wyzerowanie kolejnych 
wierszy ekranu, od góry do dołu, wymaga cyklicznego przemieszczania się 
między kolejnymi strefami i zerowania w każdej z nich po 80 kolejnych bajtów. 
Należy także zwrócić uwagę, że definicja operatora CLEAR odwołuje się do 
pomocniczych operatorów X i Y identyfikujących zmienne określające współ- 
rzędne pozycji bieżącej. 

Definicja operatora PLOT odwołuje się do pomocniczego operatora 
P, a także do operatorów X i Y. Wykonanie operacji P( xy —— am) 
powoduje zastąpienie — na stosie parametrów — danych x i y określających 
współrzędne pozycji bieżącej adresem a bajtu i maską m określającą pozycję 
w bajcie, dla punktu o wypółrzędnych (x,y). Jak można się przekonać 

a = C€000+ ((199—y) / 8)+80 +- 

+ ((199—y)mod 8)+2048 + x / 8 

m =|128> >(x mod 8) 
gdzie / oznacza dzielenie całkowite, a > > przesunięcie w prawo. W celu 
ułatwienia analizy przytoczonych wzorów można podać, że 

C000 

jest adresem bufora ekranu; 
199—y 
jest numerem wiersza liczonym od góry ekranu; 
(199—y) / 8 
jest numerem paska, liczonym od góry ekranu, w którym znajduje 
się punkt (x,y); 


((199—y) / 8) + 80 
jest adresem bajtu, liczonym od początku bufora ekranu, od któ- 
rego zaczyna się pierwszy wiersz paska zawierającego punkt (x,y); 
(199—y) mod 8 
jest numerem wiersza w obrębie paska zawierającego punkt (x,y); 


((199—y) mod 8)+2048 
jest różnicą dwóch adresów: adresu wiersza, w którym znajduje się 
punkt (x,y) i adresu paska, w którym znajduje się ten punkt; 
x/8 
jest numerem bajtu w obrębie wiersza zawierającego punkt (x,y); 


x mod 8 
jest numerem bitu w obrębie bajtu zawierającego punkt (xy). 


VOCABULARY GRAPHICS  IMMEDIATE 
GRAPHICS DEFINITIONS 
DECIMAL 


: /8 
: «2048 ( v — vx2048 ) 2048 » 
2:%8 (v— va8 ) 8 x» ; 

: «80 (Cv — va80) 80 « 3; 


(v—%v8) 8 / ; 


CODE BIT (n—b) 
D POP 
E INR 
A XRA 
128 ORI 
HERE E DCR 
HERE 1+ SWAP OJZ 
RRC 
JMP 
HERE SWAP ! EA MOV 
D PUSH 
c; 


O VARIABLE X 
O VARIABLE Y 


: CLEAR —16384 0 8 DO 
DUP DUP 2000 + DO 


0 1 c! 
LOOP 
2048 + 
LOOP 
DROP 3 
0x ! OY ! 3 


P (xy—an) 
MINUS 199 + DUP /8 «480 >R 

7 AND «w2048 R> + OVER /8 + 
—16384 + SWAP 7 AND BIT 


PLOT (xy—©) 


T 


OVER OVER Y ! x ! 
OVER Ca XOR SWAP C! 


(ceclil sa) 

- DUP DUP 0< IF 
DROP —1 

ELSE 
0= 0= 

THEN 

SWAP ABS ; 


P 


PR OR PA PA R R LR PR PR M 


. 
, 


Loop 


skip 


, 


CONSTANT F 
CONSTANT DX 
CONSTANT DY 
CONSTANT S1 
CONSTANT S2 
10 CONSTANT E 


O © 2 N O 


O VARIABLE VAR 10 ALLOT VAR CONSTANT H 
"WO H + ad 3; 
W! H + ! 


«ua 


: DRAW ( x2 y2 —) 

DUP >R OVER >R 

Y 8 DUP >R T 
DY W! S2 w! 

X 8 DUP >R T 
DX W! S1 w! 

R> RR R> X ! R> Y ! 

DY WA DX WA OVER OVER + O= IF 
DROP DROP PLOT 

ELSE 
OVER OVER > DUP F W! IF 
DY W! DX W! 


ELSE 
DROP DROP 
THEN 
DY WO DUP + DX WO - E w! 


DX WA O DO 
OVER OVER PLOT 
BEGIN 
E Wd O< 0= WHILE 
Fo IF 
SWAP S1 WA + SWAP 
ELSE 
S2 WA + 
THEN 
E Wwa DX Wa DUP + - E w! 
REPEAT 
F WA IF 
S2 wa + 
ELSE 
SWAP S1 WA + SWAP 
THEN 
E wa DY wa DUP + + E W! 
LOOP 
THEN ; 
FORTH DEFINITIONS 
GRAPHICS 


15.1. Definicje operatorów graficznych 
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Wykreślenie odcinka linii prostej między punktami 
o współrzędnych (x472) i (x272) 


Y = Y)4 
X = K 
dy = abs (y_ - Y4) 
s = sign(y> - ZŁ 
dx = abs(x> - x4) 
s. = sign(x> - x4) 
1f dy + dx = O then 
plot(x„y) 
else 
f m dy > dx 
1f f then 
tm dx 
dx = dy 
dy zt 
end if 
e=2 * dy - dx 
for i = 1 to dx 
plot (x„y) 
whilele > 0) 
1f f then 
X=X+S, 
else 
YsSYtŁ 82 
end if 
e=e-2%* dh 
end while 
1f f then 
YsSYt 32 
else 
X=X+SJ 
end if 
e=€e+2 * dy 
end for 
end if 


15.2. Algorytm Bresenhama dla odcinka 
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W definicji operatora DRAW występuje odwołanie do operatora 
PLOT oraz odwołania do szeregu operatorów pomocniczych. Definicja ta 
realizuje uogólniony algorytm Bresenhama do kreślenia odcinków linii pros- 
tych metodą przyrostową. Algorytm ten przedstawiono na rys. 15.2. 

Programowanie animacji, tj. przygotowywanie definicji umożliwia- 
jących uzyskiwanie efektów ruchowych, jest znacznie bardziej złożone niż 
programowanie grafiki. W ogólnym przypadku polega ono na wyznaczaniu 
różnicy symetrycznej układu bitów ekranu z układem bitów obiektu animowa- 
nego. Różnica ta jest wyznaczana dwukrotnie dla każdej nowej pozycji obiektu 
animowanego, dzięki czemu obiekt ten na przemian pojawia się na ekranie 
i znika. Jeżeli po zniknięciu, obraz obiektu zostanie wygenerowany w są- 
siednim miejscu, to uzyska się efekt ruchu. Posługiwanie się różnicą symetry- 
czną jest podyktowane wymaganiem nie naruszenia tła. 

Na rysunku 15.3 przedstawiono pewien obiekt w pięciu fazach ru- 
chu, a na rys. 15.4 zbiór definicji umożliwiających animację tego obiektu. 
W szczególności, po zdefiniowaniu przez kompilator DEF operatorów El, E2, 
E3, E4 i E5 każde wykonanie operacji RUN powoduje uzyskanie efektów 
ruchowych. 


Faza I Faza II Faza III /Faza IV Faza V 


AIEE 


15.3. Obiekt animowany w 5 fazach ruchu 


Znaczenie poszczególnych operatorów jest następujące: 
DEF  ( 48-danych-słowowych — — ) 

Wykonanie operacji DEF powoduje utworzenie definicji operatora 
o nazwie identycznej z nazwą najbliższego słowa występującego w 
strumieniu wejściowym, a następnie umieszczenie w polu parametrów 
tego operatora 48 danych bajtowych określających kształt obiektu 
identyfikowanego przez dany operator. Późniejsze wykonanie tak 
zdefiniowanej operacji w kontekście 


a nazwa 
spowoduje umieszczenie obiektu w środkowej części ekranu. Dokona 
się to w taki sposób, że lewy górny piksel obiektu znajdzie sę w tym 
bajcie bufora ekranu, który ma adres a. 


GRAPHICS DEFINITIONS 
VOCABULARY ANIMATION IMMEDIATE 
ANIMATION DEFINITIONS 


: DEF <BUILDS O 48 DO CZ 


30 DO 


OVER OVER 


8 0 DO 


OVER OVER Ca SWAP C! 
OVER 1+ OVER 1+ Ca SWAP C! 
2+ SWAP 2048 + SWAP 


LOOP 
DROP DROP 
16 + SWAP 80 + SWAP 
LOOP 
„DRÓP DROP ; 
HEX 
(FAZA I ) 


00 00 00 00 00 00 G0 00 00 00 00 00 
00 3E 00 3E 00 1C OQ FO 03 


33 FF 07 C8 07 CO OF 
( FAZA II ) 

00 00 00 00 00 00 00 
00 7c 00 7c 00 7c 00 
37 F6 37 FE 07 CO 6F 
( FAZA III ) 

00 00 00 00 00 00 00 
00 F8 00 F8 00 70 03 
1F EO 1F EO DE 00 FE 
C FAZA IV ) 

00 00 00 00 00 00 00 
01 FO 01 FO 00 EQ 07 
1F FO OF 00 OF 80 OD 
( FAZA V ) 

00 00 00 00 00 00 OO 
03 EO 01 cO 07 00 OF 
3F 00 3F 00 3C 0O 7C 
DECIMAL 


3 ADR [ 16384 11 
:N 2+ DUP DUP 3 


: RUN CLEAR O ADR 
0 40 DO 


E1 
E2 
E3 EJ 
E4 


z z z -_ z 


E5 E5 
LOOP $ 


15.4. Definicje operatorów animacyjnych 


cO Fc 


00 00 
38 01 
80 70 


00 00 
co 07 
00 FB 


00 00 
80 1F 
cO 1F 
00 00 


00 16 
00 78 


80 * 


DUP 


FO OF FO 
E3 EO 76 


00 00 00 
EO 07 EO 
CO F8 EO 


00 00 00 
cO OF 80 
00 E7 00 


00 00 GO 
80 1F 80 
80 7B CO 


00 01 cO 
00 1E 00 
00 70 00 


1F 


1F 


03 


1c 
FO 
3C 


00 
EO 
EO 


0 
80 
00 


E0 
80 
80 


EO 


3E 00 


70 


00 


+ ] LITERAL 


DUP 


LOOP DOES> 


DEF E1 


DEF E2 


DEF E3 


DEF E4 


DEF E5 
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ADR (k—— a) 
Wykonanie operacji ADR powoduje przekształcenie numeru kolumny 
k na adres bajtu, w którym znajduje się lewy górny piksel znaku 
umieszczonego na pozycji (11,k). Pozycje znaków są liczone od lewego 
górnego narożnika ekranu. Wiersz liczy 80, a kolumna 25 pozycji. 
Znak znajdujący się w narożniku ekranu zajmuje pozycję (0,0). 


Część II 


Opisy operacji 


Przytoczone w tej części książki szczegółowe opisy operacji przedstawiono 
w porządku alfabetycznym wyznaczonym przez alfabet ASCII. W zamieszczo- 
nych definicjach posłużono się liczbami w zapisie szesnastkowym. W celu 
ułatwienia wyszukiwania opisów operacji bezpośrednio po skorowidzu 
umieszczono indeks operatorów. 


| (sa —-— ) 


!|CSP 


4 


Wykonanie operacji ! (store) powoduje umieszczenie danej słowowej 
s pod adresem a. ! jest operatorem biernym, zdefiniowanym w kodzie 
maszynowym. 
(—-) 
Wykonanie operacji !CSP (store-C-S-P) powoduje przypisanie zmien- 
nej identyfikowanej przez operator CSP adresu szczytu stosu para- 
metrów. !CSP jest operatorem biernym, zdefiniowanym za pomocą 
kompilatora : (dwukropek) 

ICSP SPQ CSP ! ; 


(dv — — dq ) 


Wykonanie operacji ++ (sharp) powoduje wyodrębnienie najmniej 
znaczącej cyfry danej dwusłowowej dv. Znak ASCII reprezentujący tę 
cyfrę jest umieszczany w kolejnym wolnym bajcie bufora liczby. 
Konwersja odbywa się z uwzględnieniem bieżącej podstawy liczb, 
a daną dq stanowi iloraz danej dv i bieżącej podstawy. Operator 
++ występuje z reguły w ciągu między operatorami < +4: I ++ >. 4k jest 
operatorem biernym, zdefiniowanym za pomocą kompilatora : (dwu- 
kropek) 

: ++ BASE Q© M/MOD ROT 9 OVER < 

IF 7 + THEN 30 +HOLD ; 
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++>  (dv—— ac) 

Wykonanie operacji 4: > (sharp-greater-than) powoduje zakończenie 
konwersji danej dwusłowowej na ciąg znaków ASCII. Dana dv zostaje 
odrzucona i zastąpiona na stosie parametrów adresem a — najbardziej 
znaczącego znaku powstałego z konwersji oraz licznikiem znaków c. 
Operator ++ > występuje z reguły jako ostatni z operatorów ciągu 
< ++ .. H+>. 4: > jest operatorem biernym, zdefiniowanym za pomocą 
kompilatora : (dwukropek) 

:4k+> DROP DROP HLD ©Q PAD OVER — ; 


+S (dv —— 00) 
Wykonanie operacji 4:£S powoduje dokończenie konwersji danej 
dwusłowowej bez znaku dv na ciąg ASCII. Kolejno otrzymywane 
znaki kodu ASCII są umieszczane w wolnych bajtach bufora liczby. 
Operator +4+S występuje z reguły między operatorami < ++ i ++ >. 4+8S 
jest operatorem biernym, zdefiniowanym za pomocą kompilatora 


(dwukropek) 
: 4+S BEGIN 
++ OVER OVER OR 0= 
UNTIL ; 
*  (-—— a) — stan wykonywania 
(—— )  — stan kompilacji 


Wykonanie operacji * (tick) zaczyna się od rozpatrzenia stanu inter- 
pretera. Jeśli interpreter znajduje się w stanie wykonywania, to na 
stosie parametrów zostanie umieszczony adres pola parametrów 
operatora o nazwie identycznej z nazwą najbliższego słowa występu- . 
jącego w strumieniu wejściowym. Jeśli interpreter znajduje się w stanie 
definiowania, to w słowniku zostanie umieszczone wskazanie opera- 
tora LIT, a za nim wspomniany adres pola parametrów operatora. 
W obu przypadkach słowo, które określało nazwę operatora zostanie 
pominięte. * jest operatorem czynnym zdefiniowanym, za pomocą 
operatora : (dwukropek) 

:” -—FIND 0= 0 ERROR DROP 

[COMPILE] LITERAL ; IMMEDIATE 


( (--) 
Wykonanie operacji ( (left-paren) powoduje pominięcie wszystkich 
następnych znaków interpretowanego tekstu wejściowego, aż do 
najbliższego znaku ) włącznie, tj. potraktowanie tego tekstu jako 
komentarza. ( jest operatorem czynnym, zdefiniowanym za pomocą 
kompilatora : (dwukropek) 
: (29 WORD ; IMMEDIATE 


(.) (—— ) por. opis operacji . 
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2 


Wykonanie operacji (.”) (paren-dot-quote) powoduje wyprowadzenie 
tekstu następującego po wskazaniu operatora (.”). Tekst ten jest 
poprzedzony bajtem licznika określającym liczbę znaków tekstu. (.”) 
jest operatorem biernym, zdefiniowanym za pomocą kompilatora : 
(dwukropek) 

: ((.) R COUNT DUP 1+ R> + >R TYPE; 


(+LOOP) (v —— ) por. opis operacji + LOOP 


Wykonanie operacji (+ LOOP) (paren-plus-loop) powoduje dodanie do 
zmiennej sterującej cyklu danej v i podjęcie decyzji o ewentualnym 
dalszym wykonywaniu cyklu. Jeśli dana v ma wartość dodatnią, to 
cykl zostanie zakończony, gdy nowa wartość zmiennej sterującej 
zrówna się z ograniczeniem albo je przekroczy. Jeśli dana v ma wartość 
ujemną, to cykl zostanie zakończony, gdy nowa wartość zmiennej 
sterującej równa się z ograniczeniem albo okaże się od niego mniejsza. 
Zabrania się, aby dana v miała wartość 0. (+ LOOP) jest operatorem 
biernym, zdefiniowanym w kodzie maszynowym. 


GCODE) ( —— ) por. opis operacji ;CODE 


Wykonanie operacji ;CODE) (paren-semicolon-code) powoduje zmianę 
pola kodu kompilowanego operatora w taki sposób, że zawierać 
będzie ono adres kodu maszynowego następującego po wskazaniu 
operatora (,;CODE). ;CODE) jest operatorem biernym, zdefiniowanym 
za pomocą operatora : (dwukropek) 

;: ,CODE) R> LATEST PFA CFA !; 


(ABORT)  ( cały-stos — — ) 


(DO) 


Wykonanie operacji (ABORT) (paren-abort) powoduje wykonanie 
takich czynności jak podczas wykonywania operacji ABORT. (ABORT) 
jest operatorem biernym, zdefiniowanym za pomocą operatora : (dwu- 
kropek) 

: (ABORT) ABORT ; 


(li —— ) por. opis operacji DO 

Wykonanie operacji (DO) (paren-do) powoduje ustalenie parametrów 
cyklu DO .. LOOP albo DO .. + LOOP. W typowych implemen- 
tacjach parametry te zostaną umieszczone na stosie powrotów; naj- 
pierw parametr I (ograniczenie), a następnie parametr i (zmienna 
sterująca). (DO) jest operatorem biernym, zdefiniowanym w kodzie 
maszynowym. 
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(FIND) (ab —— pnt) 


(LINE) 


(ab —-—f) 
Wykonanie operacji (FIND) (paren-find) powoduje przeszukanie 
słownika w celu znalezienia definicji operatora. Przyjmuje się, że pole 
nazwy pierwszej rozpatrywanej definicji operatora rozpoczyna się od 
adresu b, a pole określające nazwę poszukiwanego słowa rozpoczyna 
się od adresu a. Pierwszy bajt tego pola zawiera licznik znaków nazwy. 
Jeśli definicja operatora zostanie znaleziona, to na stosie parametrów 
pozostaną: adres p pola parametrów odszukanej definicji, liczba 
znaków n nazwy operatora oraz dana t o wartości 1. W przeciwnym 
razie, na stosie parametrów pozostanie jedynie dana f o wartości O. 
(FIND) jest operatorem biernym, zdefiniowanym w kodzie maszyno- 


wym. 


(ns—— al ) 

Wykonanie operacji (LINE) (paren-line) powoduje przekształcenie 
współrzędnych wiersza tekstu przechowywanego w pamięci zewnę- 
trznej na jego współrzędne w pamięci operacyjnej. Dana n określa 
numer wiersza w obrębie ekranu, a dana s — numer ekranu. Po 
sprowadzeniu do pamięci operacyjnej bloku zawierającego tak okreś- 
lony wiersz na stosie parametrów pozostaną adres a pierwszego bajtu 
wiersza w buforze w pamięci operacyjnej oraz rozmiar wiersza 
w znakach I. (LINE) jest operatorem biernym, żdefiniowanym za 
pomocą kompilatora : (dwukropek) 


: (LINE) >R C/L B/BUF +/MOD 
R>  B/SCR + + BLOCK + CJL; 


(LOOP) ( —— ) por. opis operacji LOOP 


Wykonanie operacji (LOOP) (paren-loop) powoduje zwiększenie 
o 1 zmiennej sterującej cyklu i podjęcie decyzji o ewentualnym dalszym 
wykonywaniu cyklu. Cykl zostanie uznany za zakończony, gdy nowa 
wartość zmiennej sterującej zrówna się z ograniczeniem albo je 
przekroczy. (LOOP) jest operatorem biernym, zdefiniowanym w ko- 
dzie maszynowym. 


(NUMBER) ( da a — — db b ) 


Wykonanie operacji (NUMBER) (paren-number) powoduje wykonanie 
konwersji liczby zapisanej w kodzie ASCII na daną dwójkową 
podwojonej dokładności. Konwersja uwzględnia bieżącą podstawę 
liczb. Dana ta reprezentuje rezultat dotychczasowej konwersji, a jest 
adresem bajtu poprzedzającego pierwszą cyfrę liczby poddawanej 
konwersji, db reprezentuje rezultat uaktualnionej konwersji, b zaś jest 
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adresem pierwszego znaku liczby, który nie jest cyfrą przy danej 
podstawie. (NUMBER) jest operatorem biernym, zdefiniowanym za 
pomocą kompilatora : (dwukropek) 
: (NUMBER) BEGIN 

1+ DUP >R CQ BASE Q DIGIT 

WHILE 

SWAP BASE Q U+ DROP ROT BASE Q 

Ux D+ DPL Q 1+ 

IF 1 DPL +! THEN 


R> 
REPEAT R> ; 
« (ab —— p) 
Wykonanie operacji * (times) powoduje zastąpienie — na stosie 
parametrów — danych a i b ich iloczynem p. * jest operatorem 
biernym zdefiniowanym za pomocą kompilatora : (dwukropek) 
:« M» DROP ; 
*/ (abc ——q) 


Wykonanie operacji */ (times-divide) powoduje zastąpienie — na stosie 
parametrów — danych a, b i c daną o wartości a * b / c. Rezultat 
obliczeń jest dokładniejszy niż w przypadku operacji a b + c / ponieważ 
rezultatem iloczynu jest dana podwojonej dokładności. */ jest opera- 
torem biernym zdefiniowanym za pomocą kompiłatora : (dwukropek) 
: «/ */MOD SWAP DROP ; 


«| MOD (abc —— rq) 
Wykonanie operacji */MOD (times-divide-mod) powoduje zastąpie- 
nie — na stosie parametrów — danych a, b i c parą danych r 1q tak 
dobranych, że q jest daną o wartości a » b / c, zaś r jest resztą 
z dzielenia a + b przez c. */MOD jest operatorem biernym, zdefinio- 
wanym za pomocą kompilatora : (dwukropek) 
: «/MOD >R M: R> M/; 


+ (ab -—— s) 
Wykonanie operacji + (plus) powoduje zastąpienie — na stosie 
parametrów — danych a i b ich sumą s = a+-b. + jest operatorem 
biernym, zdefiniowanym w kodzie maszynowym. 


+! (va -——) 
Wykonanie operacji +! (plus-store) powoduje dodanie do danej 
słowowej znajdującej się pod adresem a danej o wartości v. +! jest 
operatorem biernym, zdefiniowanym w kodzie maszynowym. 
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+= (ab-—-—c) 
Wykonanie operacji + — (plus-minus) powoduje zastąpienie — na 
stosie parametrów — danych a i b daną c. Jeśli b jest ujemne, to 
c = —a. W przeciwnym razie c =a. + — jest operatorem biernym, 
zdefiniowanym za pomocą kompilatora : (dwukropek) 


: +— 0< IF MINUS THEN ; 


+BUF (a —— bf) 

Wykonanie operacji + BUF (plus-buf) powoduje zastąpienie — na 
stosie parametrów — adresu a, bufora dyskowego zawartego w pamię- 
ci operacyjnej, adresem b następnego bufora oraz znacznikiem f. Jeśli 
adres tego następnego bufora stanowi wartość zmiennej PREV to 
znacznik f jest daną o wartości 0. W przeciwnym razie znacznik jest 
daną o wartości różnej od 0. + BUF jest operatorem biernym, 
zdefiniowanym za pomocą kompilatora : (dwukropek) 


+BUF B/BUF 4 + + DUP LIMIT = 
IF DROP FIRST THEN 
DUP PREV Q -— ; 


+LOOP (an3 —— ) por. opis operacji DO 
Wykonanie operacji + LOOP (plus-loop) zaczyna się od upewnienia, 
że dana n3 ma wartość 3. Jeśli tak nie jest, to operacja + LOOP jest 
użyta w niepoprawnym kontekście. Spowoduje to wykonanie czyn- 
ności przedstawionych w opisie operatora ?PAIRS. W przeciwnym 
razie w słowniku zostanie umieszczone wskazanie operatora 
(+LOOP), a za nim adres względny tego operatora, który został 
umieszczony w słowniku pod adresem a. + LOOP jest operatorem 
czynnym, zdefiniowanym za pomocą kompilatora : (dwukropek) 
: +LOOP 3 ?PAIRS COMPILE (+ LOOP) 

BACK ; IMMEDIATE 


+ORIGIN (n —— a) 
Wykonanie operacji + ORIGIN (plus-origin) powoduje zastąpie- 
nie — na stosie parametrów — adresu względnego n w obszarze 


użytkownika (user area) adresem rzeczywistym a. + ORIGIN jest 
operatorem biernym, zdefiniowanym za pomocą kompilatora : (dwu- 
kropek) 

+ORIGIN origin + ; 
(napis origin reprezentuje adres rzeczywisty początku obszaru użytko- 
wnika). 
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—-) 


Wykonanie operacji , (comma) powoduje przeniesienie danej słowowej 
ze stosu parametrów do słownika. , jest operatorem biernym, zdefinio- 
wanym za pomocą kompilatora : (dwukropek) 

„HERE ! 2 ALLOT ; 


— (ab—— s) 


— DUP 


Wykonanie operacji — (minus) powoduje zastąpienie — na stosie 
parametrów — danych a i b ich różnicą s = a—b. — jest operatorem 
biernym, zdefiniowanym za pomocą kompilatora : (dwukropek) 
:- MINUS + ; 


(-7-) 
Wykonanie operacji — — > (next-screen) powoduje kontynuowanie 
interpretacji strumienia wejściowego począwszy od następnego ekranu. 
Operator — —> może być użyty tylko podczas interpretowania 
ekranu i nie może być użyty w obrębie definicji nowego operatora. 
— — > jest operatorem czynnym, zdefiniowanym za pomocą kompila- 
tora : (dwukropek) 

——> ?LOADING 0 IN ! B/SCR BLK Q OVER 


MOD -— BLK +! ; IMMEDIATE 
(a——a) —dlaa=0 
(a——aa)-—dlaa<0 


Wykonanie operacji — DUP (dash-dupe) powoduje warunkowe po- 
wielenie danej znajdującej się na szczycie stosu parametrów. Powiele- 
nie to następuje jedynie wtedy, kiedy a ma wartość różną od zera. 
-DUP jest operatorem biernym, zdefiniowanym za pomocą kompila- 
tora : (dwukropek) 

: —DUP DUP IF DUP THEN ; 


—FIND (-—=— ant) 


(7-7) 
Wykonanie operacji —FIND (dash-find) powoduje wprowadzenie ze 
strumienia wejściowego jednego słowa i przeszukanie słownika w celu 
znalezienia w nim definicji operatora o nazwie identycznej-z nazwą 
tego słowa. Przeszukiwanie dotyczy części słownika określonej przez 
operator CONTEXT, a następnie części słownika określonej przez 
operator CURRENT. Jeśli definicja operatora zostanie znaleziona, to 
na stosie parametrów pozostaną: adres pola parametrów a odszukanej 
definicji, liczba znaków nazwy n wzięta z definicji oraz dana t o war- 
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tości 1. W przeciwnym razie na stosie parametrów pozostanie dana 
f o wartości 0. — FIND jest operatorem biernym, zdefiniowanym za 
pomocą kompilatora : (dwukropek) 
: FIND BL WORD HERE 

CONTEXT Q ©Q 

(FIND) DUP 0= 


IF 
DROP HERE LATEST (FIND) 
THEN ; 
—TRAILING (ac—— an) 


Wykonanie operacji — TRAILING (dash-trailing) powoduje zastąpie- 
nie — na stosie parametrów — pary danych a i c, określających 
odpowiednio adres i liczbę znaków ciągu znaków ASCII, parą danych 
a 1 n, z tak dobranym największym n nie większym niż c, aby ciąg 
znaków zaczynający się od adresu a i liczący n znaków nie zawierał 
spacji kończących. — TRAILING jest operatorem biernym, zdefinio- 
wanym za pomocą kompilatora : (dwukropek) 
: —TRAILING DUP 0 
DO 
OVER OVER + 1 — CQ BL — 
IF LEAVE 
ELSE 1 — 
THEN 
LOOP ; 


——) 
Wykonanie operacji . (dot) powoduje wyprowadzenie wartości danej 
znajdującej się na szczycie stosu parametrów. Wartość ta jest przedsta- 
wiana jako wyrównana lewostronnie liczba całkowita, po której 
następuje znak spacji. Jeśli dana ma wartość ujemną, to pierwsza cyfra 
liczby jest poprzedzona znakiem — (minus). . jest operatorem biernym, 
zdefiniowanym za pomocą kompilatora : (dwukropek) 
:.87-—>DD.; 


 (--) 


Wykonanie operacji .” (dot-quote) może nastąpić zarówno w stanie 
definiowania jak i w stanie wykonywania. W pierwszym przypadku 
nastąpi umieszczenie w słowniku wskazania operatora (.”), a za nim — 
— poprzedzonego licznikiem — ciągu znaków zawartego między 
operatorem .” a najbliższym znakiem ” (cudzysłów) wyłącznie. 
W drugim przypadku nastąpi wyprowadzenie ciągu znaków między .” 
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i znakiem ” (cudzysłów). .” jest operatorem czynnym, zdefiniowanym 
za pomocą kompilatora : (dwukropek) 
:.” 22 STATE Q 
IF 
COMPILE (.”) WORD HERE CQ 1+ ALLOT 
ELSE 
WORD HERE COUNT TYPE 
THEN ; IMMEDIATE 


LINE (1s —— ) 
Wykonanie operacji .LINE (dot-line) powoduje wyprowadzenie wier- 
sza o numerze /, zawartego w ekranie dyskowym o numerze s. 
.LINE jest operatorem biernym, zdefiniowanym za pomocą kompila- 
tora : (dwukropek) 
: „LINE (LINE) —TRAILING TYPE ; 


R (vw —— ) 
Wykonanie operacji .R (dot-R) powoduje wyprowadzenie wartości 
danej v jako liczby wyrównanej prawostronnie w polu o szerokości w. 
.R jest operatorem biernym, zdefiniowanym za pomocą kompilatora 
: (dwukropek) 
:'.R >RS<—>DR> DR; 


| (ab--c) 
Wykonanie operacji / (divide) powoduje zastąpienie — na stosie 
parametrów — danych a i b ich ilorazem c = ay/b. / jest operatorem 
biernym, zdefiniowanym za pomocą kompilatora : (dwukropek) 
: / /MOD SWAP DROP; 


/MOD (ab -—— rq) 
Wykonanie operacji /MOD (divide-mod) powoduje zastąpienie — na 
stosie parametrów — danych a i b parą danych r i q tak dobranych, że 
q = a—b, zaś r jest resztą z dzielenia a przez b. /MOD jest operatorem 
biernym, zdefiniowanym za pomocą kompilatora : (dwukropek) 
/MOD >RS-—-—> DR> M/; 


0 (-—-—0) 
Wykonanie operacji O (zero) powoduje umieszczenie — na stosie 
parametrów — danej o wartości 0. O jest operatorem biernym, 


zdefiniowanym za pomocą kompilatora CONSTANT. 
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0< (v—-—t) 
(v—-f) 
Wykonanie operacji 0< (zero-less-then) powoduje rozpatrzenie relacji 
v < O. Jeśli relacja ta jest prawdziwa, to dana v zostanie zastąpiona 
daną t o wartości 1. W przeciwnym razie zostanie zastąpiona daną 
f o wartości 0. 0< jest operatorem biernym, zdefiniowanym w kodzie 


maszynowym. 
0= (v-—-—t) 
(v-—-f) 


Wykonanie operacji 0= (zero-equal) powoduje rozpatrzenie relacji 
v = O. Jeśli relacja ta jest prawdziwa, to dana v zostanie zastąpiona 
daną t o wartości 1. W przeciwnym razie dana v zostanie zastąpiona 
daną f o wartości 0. 0= jest operatorem biernym, zdefiniowanym 
w kodzie maszynowym. 


OBRANCH  (v —— ) 
Wykonanie operacji OBRANCH (zero-branch) powoduje rozpatrzenie 
relacji v = O. Jeśli relacja ta jest prawdziwa, to do licznika interpretera 
IP zostanie dodana wartość danej następującej bezpośrednio po 
wskazaniu operatora OBRANCH. W przeciwnym razie licznik inter- 
pretera zostanie zwiększony o 2. Zrealizowanie takiej operacji 
jest równoważne wykonaniu warunkowego skoku względnego. 
OBRANCH jest operatorem biernym zdefiniowanym w kodzie ma- 


szynowym. 

1 (—-1) 
Wykonanie operacji 1 (one) powoduje umieszczenie — na stosie 
parametrów — danej o wartości 1. 1 jest operatorem biernym, 


zdefiniowanym za pomocą kompilatora CONSTANT. 

1+ (v-——n) 
Wykonanie operacji I +- (one-plus) powoduje zastąpienie — na stosie 
parametrów — danej v daną n o wartości v+ 1. 1+ jest operatorem 
biernym, zdefiniowanym za pomocą kompilatora : (dwukropek) 


:1+ 1 + ; 

2 (-—-2) 
Wykonanie operacji 2 (two) powoduje umieszczenie — na stosie 
parametrów — danej o wartości 2. 2 jest operatorem biernym, 


zdefiniowanym za pomocą kompilatora CONSTANT. 


2+ (v——n) 
Wykonanie operacji 2+ (two-plus) powoduje zastąpienie — na stosie 
parametrów — danej v daną n o wartości v+2. 2+ jest operatorem 
biernym, zdefiniowanym za pomocą kompilatora : (dwukropek) 
2+ 2 +; 
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3 (-—3) 
Wykonanie operacji 3 (three) powoduje umieszczenie — na stosie 
parametrów — danej o wartości 3. 3 jest operatorem biernym, 


zdefiniowanym za pomocą kompilatora CONSTANT. 


(-7-) 
Wykonanie operacji : (colon) zaczyna się od upewnienia, iż interpreter 
znajduje się w stanie wykonywania. Jeśli tak nie jest, to operator : jest 
użyty w niepoprawnym kontekście. Spowoduje to: wyprowadzenie 
komunikatu 
EXECUTION ONLY 

i wykonanie czynności przedstawionych łącznie w opisach operatorów 
?ERROR i WARNING. W przeciwnym razie nastąpi utworzenie 
nagłówka definicji nowego operatora, o nazwie wyrażonej przez słowo 
występujące po operatorze : (dwukropek). Nagłówek będzie składać się 
z pola nazwy, pola łącznika i pola kodu i zostanie umieszczony 
w podsłowniku określonym przez zmienną identyfikowaną przez 
operator CURRENT. Tuż przed utworzeniem nagłówka nastąpi 
wykonanie operacji !CSP, tj. zapamiętanie bieżącej pozycji stosu 
parametrów. Umożliwi to przyszłą weryfikację, czy podczas definio- 
wania operatora rozmiar stosu parametrów nie uległ zmianie. : jest 
operatorem czynnym, zdefiniowanym za pomocą kompilatora : (dwu- 
kropek) 


:: ?EXEC !ICSP CURRENT Q CONITEXT ! 

CREATE |] ;CODE kod-maszynowy IMMEDIATE 
(kod-maszynowy reprezentuje program w kodzie maszynowym, które- 
go adres zostanie umieszczony w polu CFA każdego operatora 
skompilowanego za pomocą operatora : (dwukropek)). 


;  (—— ) por. opis operacji 
Wykonanie operacji ; (semicolon) zaczyna się od upewnienia, iż 
podczas kompilowania definicji nie nastąpiła zmiana rozmiaru stosu 
parametrów. Jeśli tak nie jest, to nastąpi wyprowadzenie komunikat 1 

DEFINITION NOT FINISHED 

a następnie wykonanie czynności przedstawionych łącznie w opisach 
operatorów ?ERROR i WARNING. W przeciwnym razie nastąpi 
umieszczenie w słowniku wskazania operatora ;S, zanegowanie bitu 
smudge właśnie definiowanego operatora i ustawienie interpretera 
w stan wykonywania. ; jest operatorem czynnym, zdefiniowanym za 
pomocą kompilatora : (dwukropek) 

?CSP COMPILE ;S SMUDGE 

[COMPILE] [ ; IMMEDIATE 


. 
> 
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(—— ) por. opis operacji : 
Wykonanie operacji ;CODE (semicolon-code) zaczyna się od upewnie- 
nia, iż podczas definiowania operatora nie nastąpiła zmiana rozmiaru 
stosu parametrów. Jeśli tak nie jest, to nastąpi wyprowadzenie 
komunikatu 

DEFINITION NOT FINISHED 

a następnie wykonanie czynności przedstawionych łącznie w opisach 
operatorów ?ERROR i WARNING. W przeciwnym razie nastąpi 
umieszczenie w słowniku wskazania operatora ;CODE), zanegowanie 
bitu smudge właśnie definiowanego operatora i ustawienie interpretera 
w stan wykonywania. ;CODE jest operatorem czynnym, zdefiniowa- 
nym za pomocą kompilatora : (dwukropek) 

;'CODE ?CSP COMPILE (CODE) 

[COMPILE] [ SMUDGE ; IMMEDIATE 


S (--) 


Wykonanie operacji ;S (semicolon-S) powoduje zakończenie interpreto- 
wania operatorów bieżącego poziomu interpretacji. W szczególności 
wykonanie tej operacji powoduje zakończenie interpretowania defi- 
nicji utworzonej za pomocą kompilatora : (dwukropek) oraz za- 
kończenie interpretacji ekranów spowodowanej użyciem operatora 
LOAD. ;S jest operatorem biernym, zdefiniowanym w kodzie maszy- 


nowym. 


< (ab—-—t) 


(ab —— f) 


Wykonanie operacji < (less-than) powoduje rozpatrzenie relacji a <b. 
Jeśli relacja ta jest prawdziwa, to na stosie parametrów dane a i b zo- 
staną zastąpione daną t o wartości 1. W przeciwnym razie zostaną 
zastąpione daną f o wartości 0. < jest operatorem biernym, zdefinio- 
wanym za pomocą kompilatora : (dwukropek) 


< — 0<; 

<* (--) 
Wykonanie operacji < +4 (less-than-sharp) powoduje wykonanie czyn- 
ności poprzedzających dokonanie konwersji danej liczbowej na ciąg 
znaków ASCII, umieszczony następnie w buforze liczby. < ++ jest 
operatorem biernym, zdefiniowanym za pomocą kompilatora : (dwu- 
kropek) 
: <4+ PAD HLD !; 

<BUILDS ( —-—) 


Wykonanie operacji < BUILDS (builds) powoduje utworzenie definicji 
nowego operatora o nazwie identycznej z nazwą najbliższego słowa 


Opisy operacji 109 


występującego w strumieniu wejściowym. Ponadto w polu para- 
metrów tego operatora zostanie umieszczona dana o wartości 0. Dana 
ta zostanie zmieniona podczas wykonywania operacji DOES>. 
<BUILDS jest operatorem biernym, zdefiniowanym za pomocą 
kompilatora : (dwukropek) 

: <BUILDS 0 CONSTANT ; 


= (ab -—-— t) 
(ab —-— f) 
Wykonanie operacji = (equals) powoduje rozpatrzenie relacji a = b. 
Jeśli relacja ta jest prawdziwa, to na stosie parametrów dane a i b 
zostaną zastąpione daną t o wartości 1. W przeciwnym razie zostaną 
zastąpione daną f o wartości 0. = jest operatorem biernym, zdefinio- 
wanym za pomocą kompilatora : (dwukropek) 


, 


> (ab -—— t) 
(ab —- f) 

Wykonanie operacji > (greater-than) powoduje rozpatrzenie relacji 
a>b. Jeśli relacja ta jest prawdziwa, to na stosie parametrów dane 
a i b zostaną zastąpione daną t o wartości 1. W przeciwnym razie 
zostaną zastąpione daną f o wartości 0. > jest operatorem biernym, 
zdefiniowanym za pomocą kompilatora : (dwukropek) 
:> SWAP < ; 


>R (v ——) 
Wykonanie operacji > R (to-R) powoduje przeniesienie danej słowowej 
ze stosu parametrów na stos powrotów. >R jest operatorem biernym, 
zdefiniowanym w kodzie maszynowym. 


? (a —-—) 
Wykonanie operacji ? (question-mark) powoduje wyprowadzenie danej 
słowowej znajdującej się pod adresem a, jako liczby całkowitej 
z uwzględnieniem bieżącej podstawy liczb. ? jest operatorem biernym, 
zdefiniowanym za pomocą kompilatora : (dwukropek) 


2? Q . ; 


?COMP ( —-— ) 
Wykonanie operacji COMP (question-compile) polega na upewnieniu 
się, iż interpreter znajduje się w stanie definiowania. Jeśli tak nie jest, to 
nastąpi wyprowadzenie komunikatu 
COMPILATION ONLY, USE IN DEFINITION 
i wykonanie czynności przedstawionych łącznie w opisach operatorów 
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?ERROR i WARNING. ?COMP jest operatorem biernym, zdefinio- 
wanym za pomocą kompilatora : (dwukropek) 
:?COMP STATE Q 0= 11 ?ERRÓR ; 


(--) 

Wykonanie operacji ?CSP (question-C-S-P) powoduje rozpatrzenie 

adresu szczytu stosu parametrów. Jeśli adres ten jest identyczny 

z adresem zapamiętanym w zmiennej CSP, to nie stanie się nic. 

W przeciwnym razie nastąpi wykonanie czynności określonych w 

opisie zmiennej WARNING, tj. najczęściej wyprowadzenie tekstu 
DEFINITION NOT FINISHED 

a następnie wykonanie operacji QUIT. ?CSP jest operatorem biernym, 

zdefiniowanym za pomocą kompilatora : (dwukropek) 

: CSP SPQ CSP Q — 14 ?ERROR ; 


?ERROR (bn —— ) 


?EXEC 


Wykonanie operacji ?ERROR (question-error) powoduje rozpatrzenie 
wartości danej b. Jeśli dana ta ma wartość O, to nie stanie się nic. 
W przeciwnym razie nastąpi wykonanie operacji ERROR, tj. za- 
sygnalizowanie błędu o numerze n. Sposób sygnalizowania błędu 
zależy od bieżącej wartości zmiennej WARNING. Najczęściej sygnali- 
zacja sprowadza się do wyprowadzenia tekstu identyfikowanego przez 
n, a następnie wykonania operacji QUIT. ?ERROR jest operatorem 
biernym, zdefiniowanym za pomocą kompilatora : (dwukropek) 

: ?2ERROR SWAP IF ERROR ELSE DROP THEN ; 


(--) 
Wykonanie operacji ?EXEC (question-execute) polega na upewnieniu 
się, że interpreter znajduje się w stanie wykonywania. Jeśli tak nie jest, 
to nastąpi wyprowadzenie komunikatu 

EXECUTION ONLY 

i wykonanie czynności przedstawionych łącznie w opisach operatorów 
?ERROR i WARNING.?EXEC jest operatorem biernym, zdefiniowa- 
nym za pomocą kompilatora : (dwukropek) 
: ?EXEC STATE Q 12 ?ERROR ; 


?LOADING (——) 


Wykonanie operacji ?LOADING (question-loading) polega na upew- 
nieniu się, iż źródłem strumienia wejściowego jest pamięć dyskowa. 
Jeśli tak nie jest, to nastąpi wyprowadzenie komunikatu 

USE ONLY WHEN LOADING 
i wykonanie czynności przedstawionych łącznie w opisach operatorów 


?PAIRS 
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?ERROR i WARNING. ?LOADING jest operatorem biernym, zde- 
finiowanym za pomocą kompilatora : (dwukropek) 
: LOADING BLK Q 0= 16 ?ERROR ; 


(ab —— ) 
Wykonanie operacji ?PAIRS (question-pairs) polega na upewnieniu się, 
iż a=b. Jeśli tak nie jest, to nastąpi wyprowadzenie komunikatu 
CONDITIONALS NOT PAIRED 

i wykonanie czynności przedstawionych łącznie w opisach operatorów 
?ERROR i WARNING. ?PAIRS jest operatorem biernym, zdefiniowa- 
nym za pomocą kompilatora : (dwukropek) 

: ?PAIRS — 13 ?ERROR ; 


STACK (-—-) 


Wykonanie operacji ?STACK (question-stack) powoduje rozpatrzenie 
stanu stosu parametrów. Jeśli stos ten próbowano skrócić albo 
wydłużyć ponad miarę, to nastąpi odpowiednio wyprowadzenie komu- 
nikatu 

EMPTY STACK albo STACK OVERFLOW 
i wykonanie czynności przedstawionych łącznie w opisach operatorów 
?ERROR i WARNING. ?STACK jest operatorem biernym, zdefinio- 
wanym za pomocą kompilatora : (dwukropek) 
: STACK SPQ SO Q SWAP U< 1 ?ERROR 

SPQ HERE 80 + U< 7 ?ERROR ; 


?TERMINAL ( —— t) 


(--]) 
Wykonanie operacji TERMINAL (question-terminal) powoduje roz- 
patrzenie stanu bufora klawiatury terminala. Jeśli bufor ten zawiera 
jeszcze nie wprowadzony znak, to na stosie parametrów zostanie 
umieszczona dana t o wartości 1. W przeciwnym razie zostanie 
tam umieszczona dana f o wartości 0. TERMINAL jest operatorem 
biernym, zdefiniowanym w kodzie maszynowym. 


Q (a-—-v) 
Wykonanie operacji © powoduje zastąpienie adresu a pewnej danej 
słowowej v tą właśnie daną. Q jest operatorem biernym zdefiniowa- 
nym w kodzie maszynowym. 

ABORT ( —— ) 


Wykonanie operacjj ABORT (abort) powoduje przywrócenie stanu 
początkowego interpretera (warm start), tj. wyzerowanie obu stosów, 
ustawienie interpretera w stan wykonywania i związanie strumienia 
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wejściowego z klawiaturą terminala. Ponadto zmienne identyfikowane 
przez operatory CONTEXT i CURRENT otrzymują wartości wy- 
różniające podsłownik FORTH, a zmienna określająca podstawę liczb 
otrzymuje wartość 10. ABORT jest operatorem biernym, zdefiniowa- 
nym za pomocą kompilatora : (dwukropek) 
: ABORT SP! DECIMAL *STACK CR .CPU 

.” FIG-FORTH 8080 VER 1.1 ” 

FORTH DEFINITIONS QUIT ; 


(a --b) 

Wykonanie operacji ABS (absolute) powoduje zastąpienie — na stosie 
parametrów — danej a daną b o wartości bezwzględnej danej a. ABS 
jest operatorem biernym zdefiniowanym za pomocą kompilatora 
: (dwukropek) 

: ABS DUP +— ; 


AGAIN (anl —— ) por. opis operacji BEGIN 


Wykonanie operacji AGAIN (again) zaczyna się od upewnienia, iż 
dana nl ma wartość 1. Jeśli tak nie jest, to operacja AGAIN jest użyta 
w niepoprawnym kontekście. Spowoduje to wykonanie czynności 
przedstawionych w opisie operatora ?PAIRS. W przeciwnym razie 
w słowniku zostanie umieszczone wskazanie operatora BRANCH, a za 
nim adres względny tego operatora, który został umieszczony w sło- 
wniku pod adresem a. AGAIN jest operatorem czynnym, zdefinio- 
wanym za pomocą kompilatora : (dwukropek) 

: AGAIN 1 ?PAIRS COMPILE BRANCH 

BACK ; IMMEDIATE 


ALLOT (n —— ) 


AND 


Wykonanie operacji ALLOT (allot) powoduje przemieszczenie wska- 
zania pierwszego wolnego bajtu słownika o n bajtów. Dana n może być 
dowolną daną słowową ze znakiem. ALLOT jest operatorem biernym, 
zdefiniowanym za pomocą kompilatora : (dwukropek) 

: ALLOT DP +! ; 


(ab—— c) 

Wykonanie operacji AND (and) powoduje zastąpienie — na stosie 
parametrów — danych słowowych a i b daną słowową c tak dobraną, 
że stanowi ona rezultat iloczynu logicznego wyznaczonego równolegle 
na wszystkich parach odpowiadających sobie bitów danych a i b. AND 
jest operatorem biernym, zdefiniowanym w kodzie maszynowym. 


B/BUF 


B/SCR 


BACK 


BASE 


BEGIN 
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(———n) 

Wykonanie operacji B/BUF (bytes-per-buffer) powoduje umieszcze- 
nie — na stosie parametrów — danej słowowej określającej rozmiar 
bufora dyskowego, wyrażony w bajtach. Rozmiar ten stanowi jedno- 
cześnie jednostkę transmisji danych za pomocą jednokrotnego wyko- 
nania operacji BLOCK. Należy nadmienić, że liczba buforów dysko- 
wych może być określona za pomocą sekwencji LIMIT FIRST — 
B/BUF /. B/BUF jest operatorem biernym, zdefiniowanym za pomocą 
kompilatora CONSTANT. 


(-7—n) 
Wykonanie operacji B/SCR (blocks-per-screen) powoduje umie- 
szczenie — na stosie parametrów — danej słowowej określającej 
z jakiej liczby bloków składa się jeden ekran dyskowy. B/SCR 
jest operatorem biernym, zdefiniowanym za pomocą kompilatora 
CONSTANT. 


(a —-) 
Wykonanie operacji BACK (back) powoduje przekształcenie adresu 
a w adres względny, liczony względem adresu pierwszego wolnego 
bajtu słownika, a następnie umieszczenie tego adresu względnego 
w słowniku. BACK jest operatorem biernym, zdefiniowanym za 
pomocą kompilatora : (dwukropek) 
: BACK HERE — ,; 


(-—-——n) 
Wykonanie operacji BASE (base) powoduje umieszczenie — na stosie 
parametrów — adresu zmiennej słowowej określającej bieżącą podsta- 
wę liczb. BASE jest operatorem biernym, zdefiniowanym za pomocą 
kompilatora USER (wartością początkową zmiennej identyfikowanej 
przez BASE jest 10). 


(--al) 

Wykonanie operacjj BEGIN (begin) powoduje upewnienie się, że 
interpreter znajduje się w stanie definiowania. Jeśli tak nie jest, to 
nastąpi wykonanie czynności przedstawionych w opisie operatora 
?COMP. W przeciwnym razie na stosie parametrów zostanie umie- 
szczony adres a pierwszego wolnego bajtu słownika oraz dana 
słowowa o wartości 1. BEGIN jest operatorem czynnym, zdefinio- 
wanym za pomocą kompilatora : (dwukropek) 

: BEGIN ?COMP HERE 1 ; IMMEDIATE 
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(——n) 


Wykonanie operacji BL (B-L) powoduje umieszczenie — na stosie 
parametrów — danej słowowej n o wartości równej kodowi znaku 
„Spacja”. BL jest operatorem biernym, zdefiniowanym za pomocą 
kompilatora 6 CONSTANT. 


BLANKS (an ——) 


BLK 


Wykonanie operacji BLANKS (blanks) powoduje wypełnienie spacja- 
mi obszaru n bajtów pamięci, począwszy od adresu a. BLANKS jest 
operatorem biernym zdefiniowanym za pomocą kompilatora : (dwu- 
kropek) 

: BLANKS BL FILL ; 


(—7—a) 

Wykonanie operacji BLK (B-L-K) powoduje umieszczenie — na stosie 
parametrów — adresu zmiennej słowowej określającej numer tego 
bloku pamięci dyskowej, z którego pochodzi strumień wejściowy. Jeśli 
wspomniana zmienna ma wartość 0, to oznacza to, iż strumień 
wejściowy pochodzi z klawiatury terminala. BLK jest operatorem 
biernym, zdefiniowanym za pomocą kompilatora USER. 


BLOCK (n —— a) 


Wykonanie operacji BLOCK (block) zaczyna się od sprawdzenia, czy 
w jednym z buforów dyskowych w pamięci operacyjnej znajduje się już 
blok o numerze względnym n. Jeśli go tam nie ma, to zostanie 
sprowadzony z pamięci dyskowej. Następnie dana słowowa n, znajdu- 
jąca się na stosie parametrów, zostanie zastąpiona adresem a trzeciego 
bajtu tego bufora w pamięci operacyjnej, w którym znajduje się blok 
dyskowy o numerze n. BLOCK jest operatorem biernym, zdefiniowa- 
nym za pomocą kompilatora : (dwukropek) 
: BLOCK OFFSET Q + >R PREV Q R — DUP + 
IF 
BEGIN 
+BUF 0= 
IF 
DROP R BUFFER DUP R 1 R/W 2 — 
THEN 
DUP Q R — DUP + 0= 
UNTIL 
DUP PREV! 
THEN R> DROP 2+ ; 
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BRANCH  ( —— ) 
Wykonanie operacji BRANCH (branch) powoduje dodanie do licznika 
interpretera IP wartości danej następującej bezpośrednio po wskaza- 
niu operatora BRANCH. Zrealizowanie takiej operacji jest równowa- 
żne wykonaniu bezwarunkowego skoku względnego. BRANCH jest 
operatorem biernym, zdefiniowanym w kodzie maszynowym. 


BUFFER (n —— a) 
Wykonanie operacji BUFFER (buffer) zaczyna się od zarezerwowania 
bufora w pamięci operacyjnej dla bloku dyskowego o numerze 
bezwzględnym n. Następnie dana słowowa n, znajdująca się na stosie 
parametrów, zostanie zastąpiona adresem a trzeciego bajtu zarezerwo- 
wanego bufora. BUFFER jest operatorem biernym, zdefiniowanym za 
pomocą kompilatora : (dwukropek) 
: BUFFER USE Q DUP >R 
BEGIN 
+ BUF 
UNTIL 
USE !' RQ 0< 
IF 
R2+ RQ 7FFF AND 0 R/W 
THEN 
R! R PREV ! R> 2+ ; 


C! (va ——) 
Wykonanie operacji C! (C-store) powoduje umieszczenie pod adresem 
a dolnego bajtu danej słowowej v. C! jest operatorem biernym, 
zdefiniowanym w kodzie maszynowym. 


C, ( U —— ) 
Wykonanie operacji C, (C-comma) powoduje przeniesienie do słownika 
dolnego bajtu danej słowowej v. C jest operatorem biernym, zdefinio- 


wanym za pomocą kompilatora : (dwukropek) 
: C, HERE C! 1 ALLOT ; 


CL (-——n) 
Wykonanie operacji C/L (C-slash-I) powoduje umieszczenie — na 
stosie parametrów — danej słowowej n określającej rozmiar wiersza 
ekranu w znakach. C/L jest operatorem biernym, zdefiniowanym za 
pomocą kompilatora CONSTANT (najczęściej n = 64). 


Ca (a-—v) 
Wykonanie operacji CQ (C-fetch) powoduje zastąpienie — na stosie 
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parametrów — adresu a taką daną v, której górny bajt ma wartość O, 
a dolny jest identyczny z daną bajtową znajdującą się pod adresem a. 
CQ jest operatorem biernym, zdefiniowanym w kodzie maszynowym. 


CFA (p—-— c) 
Wykonanie operacji CFA (C-F-4) powoduje zastąpienie — na stosie 
parametrów — adresu p pola parametrów operatora adresem c pola 
kodu tego operatora. CFA jest operatorem biernym, zdefiniowanym za 


pomocą kompilatora : (dwukropek) 
: CFA 2 — ; 


CMOVE (stn —-—) 
Wykonanie operacji CMOVE (C-move) powoduje przepisanie n baj- 
tów, bajt po bajcie, z obszaru pamięci operacyjnej rozpoczynającego 
się od adresu s do obszaru rozpoczynającego się od adresu t. CMOVE 
jest operatorem biernym, zdefiniowanym w kodzie maszynowym. 


COLD (-—-— ) 

Wykonanie operacjj COLD (cold) powoduje przywrócenie stanu 
początkowego interpretera, włącznie ze stanem początkowym zmien- 
nych użytkownika (cold start). Powoduje to m.in. przywrócenie po- 
czątkowego stanu słownika oraz likwidację przyporządkowania bufo- 
rom pamięci operacyjnej bloków dyskowych. COLD jest operatorem 
biernym, zdefiniowanym za pomocą kompilatora : (dwukropek) 
: COLD EMPTY—BUFFERS O DENSITY ! FIRST USE ! 

FIRST PREV ! DRO O EPRINT ! 

[ 12 +ORIGIN ] LITERAL 

[ 26 +ORIGIN ] LITERAL Q 6 + 

10 CMOVE 

[ OC +ORIGIN |] LITERAL Q 

[ ' FORTH 4 + |] LITERAL ! 

ABORT ; 


Uwaga: przyjęto następujące przyporządkowanie adresów i interpreta- 
cję umieszczonych pod tymi adresami danych inicjujących (boot-up 
literals): 
origin+ 12 początkowe wartości parametrów 
SO, RO, TIB, WIDTH, WARNING, FENCE, DP, 
VOC-LINK 
origin+ 26 adres początkowy obszaru użytkownika (user area) 
origin+- OC adres ostatniej definicji w podsłowniku FORTH 


COMPILE ( —— ) 
Wykonanie operacji COMPILE (compile) zaczyna się od upewnienia, 
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że interpreter znajduje się w stanie definiowania. Jeśli tak nie jest, to 
operacja COMPILE jest użyta w niepoprawnym kontekście. Spowo- 
duje to wyprowadzenie komunikatu 
COMPILATION ONLY, USE IN DEFINITION 

a następnie wykonanie czynności przedstawionych łącznie w opisach 
operatorów ?ERROR i WARNING. W przeciwnym razie w słowniku 
zostanie umieszczone wskazanie, następujące bezpośrednio po właśnie 
interpretowanym wskazaniu operatora COMPILE. COMPILE jest 
operatorem biernym, zdefiniowanym za pomocą kompilatora : (dwu- 


kropek) 
: COMPILE ?COMP >R DUP 2+ R> Q ,; 
CONSTANT (v —-— ) 


Wykonanie operacjj 6 CONSTANT (constant) powoduje utworzenie 
definicji operatora o takiej nazwie, jaką ma najbliższe słowo w stru- 
mieniu wejściowym. Operator, którego definicję utworzono za pomocą 
kompilatora CONSTANT, identyfikuje stałą. Oznacza to, że jego 
wykonanie powoduje umieszczenie — na stosie  parame- 
trów — danej określonej podczas jego definiowania. CONSTANT jest 
operatorem biernym, zdefiniowanym za pomocą kompilatora : (dwu- 
kropek) 

: CONSTANT CREATE SMUDGE , ;CODE kod-maszynowy 
(kod-maszynowy reprezentuje program w kodzie maszynowym, które- 
go adres zostanie umieszczony w polu CFA każdego operatora 
zdefiniowanego za pomocą kompilatora 6 CONSTANT. Wykonanie 
tego kodu powoduje umieszczenie — na stosie parametrów — stałej 
identyfikowanej przez operator zdefiniowany za pomocą kompilatora 


CONSTANT). 

CONTEXT (—— a) 
Wykonanie operacjj CONTEXT (context) powoduje umieszcze- 
nie — na stosie parametrów — adresu zmiennej słowowej, której 


wartością jest adres słowa należącego do podsłownika, od którego 
rozpoczyna się wyszukiwanie operatorów. CONTEXT jest operatorem 
biernym, zdefiniowanym za pomocą kompilatora VARIABLE. 


COUNT (a—— bn) 
Wykonanie operacjj COUNT (count) powoduje zastąpienie — na 
stosie parametrów — adresu a ciągu znakowego rozpoczynającego się 
od licznika znaków adresem b = a+1 pierwszego znaku za licznikiem 
oraz licznikiem n. COUNT jest operatorem biernym, zdefiniowanym 
za pomocą kompilatora : (dwukropek) 
: COUNT DUP 1+ SWAP CQ ;; 


118 


CR 


Opisy operacji 


(--) 


Wykonanie operacji CR (C-R) powoduje wyprowadzenie pary znaków: 
powrotu karetki i wysuwu, tj. przemieszczenie kursora na początek 
nowego wiersza. CR jest operatorem biernym, zdefiniowanym w ko- 
dzie maszynowym. 


CREATE (——) 


CSP 


Wykonanie operacji CREATE (create) powoduje utworzenie nagłówka 
definicji nowego operatora o nazwie wyrażonej przez najbliższe słowo 
występujące w strumieniu wejściowym. Nagłówek ten będzie się 
składać z pola nazwy, pola łącznika i pola kodu. Pole nazwy będzie 
zawierać ustawiony na wartość 1 bit smudge, a pole kodu będzie 
zawierać adres bajtu następującego bezpośrednio po tym polu. Jeśli 
w słowniku występuje już operator o podanej nazwie, to utworzenie 
nowej definicji jest poprzedzone wyprowadzeniem tekstu 
ISNT UNIQUE 

Stanowi to ostrzeżenie, iż nowa definicja może przesłonić definicję 
poprzednią. Ze względu na ustawienie bitu smudge nie wyklucza to 
jednak powołania się w definicji nowej na definicję starą. CREATE jest 
operatorem biernym, zdefiniowanym za pomocą kompilatora : (dwu- 
kropek) 


: CREATE —FIND 
IF 
DROP NFA ID. 4 MESSAGE SPACE 
THEN 
HERE DUP CQ WIDTH Q MIN 
1+ ALLOT DUP A0 TOGGLE 
HERE i — 80 TOGGLE 
LATEST , CURRENT Q ! 
HERE 2+ ,; 


(—7—a) 

Wykonanie operacji CSP (C-S-P) powoduje umieszczenie — na sto- 
sie parametrów — adresu a zmiennej, której wartością jest zazwy- 
czaj ostatnio zapamiętany adres szczytu stosu parametrów. CSP 
jest operatorem biernym, zdefiniowanym za pomocą kompilatora 
VARIABLE. 


CURRENT (—— a) 


Wykonanie operacjj CURRENT (current) powoduje umieszcze- 
nie — na stosie parametrów — adresu a zmiennej słowowej, której 
wartością jest adres słowa, zawierającego adres ostatniego słowa 


D + 


D+ — 
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należącego do podsłownika, w którym są umieszczane definicje no- 
wych operatorów. CURRENT jest operatorem biernym, zdefiniowa- 
nym za pomocą kompilatora VARIABLE. 


( da db — — ds ) 

Wykonanie operacji D+ (D-plus) powoduje zastąpienie — na stosie 
parametrów — danych dwusłowowych da i db ich dwusłowową sumą 
ds = da+db. D+ jest operatorem biernym, zdefiniowanym w kodzie 
maszynowym. 


(dab —— dc) 
Wykonanie operacji D+ — (D-plus-minus) powoduje zastąpienie — na 
stosie parametrów — danej dwusłowowej da i danej słowowej b, daną 
dwusłowową dc. Jeśli b jest ujemne, to dc = —da. W przeciwnym razie 
dc = da. D+ — jest operatorem biernym, zdefiniowanym za pomocą 
kompilatora : (dwukropek) 
:D+— 0< IF DMINUS THEN ; 


D. (dv —— ) 


D.R 


DABS 


Wykonanie operacji D. (D-dot) powoduje wyprowadzenie danej dv, 
jako wyrównanej lewostronnie liczby całkowitej, po której następuje 
jedna spacja. Jeśli wyprowadzana dana ma wartość ujemną, to 
pierwsza cyfra liczby jest poprzedzona znakiem — (minus). D. jest 
operatorem biernym, zdefiniowanym za pomocą kompilatora : (dwu- 
kropek) 

:D.0 DR; 


(dv w —— ) 

Wykonanie operacji D.R (D-dot-R) powoduje wyprowadzenie danej 
dwusłowowej dv, jako liczby całkowitej wyrównanej prawostronnie 
w polu o szerokości w. Jeśli wyprowadzana liczba nie mieści się w polu 
o szerokości w, to szerokość pola zostanie niejawnie zwiększona. D.R 
jest operatorem biernym, zdefiniowanym za pomocą kompilatora 
; (dwukropek) 

: DR >R SWAP OVER DABS <+ +4+5 SIGN + > 

R> OVER SPACES TYPE ; 


(da — — db ) 
Wykonanie operacji DABS (D-abs) powoduje zastąpienie — na stosie 
parametrów — danej dwusłowowej da daną dwusłowową db o takiej 
wartości, jaką ma moduł danej da. DABS jest operatorem biernym, 
zdefiniowanym za pomocą kompilatora : (dwukropek) 
: DABS D+ — ; 
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DECIMAL ( —-— ) 


Wykonanie operacji DECIMAL (decimal) powoduje nadanie zmiennej 
BASE wartości 10. Powoduje to, że najbliższe konwersje liczb podczas 
wprowadzania i wyprowadzania będą wykonywane przy podstawie 10. 
DECIMAL jest operatorem biernym, zdefiniowanym za pomocą 
kompilatora : (dwukropek) 
: DECIMAL 0A BASE !; 


DEFINITIONS ( —-— ) 


DIGIT 


Wykonanie operacji DEFINITIONS (definitions) powoduje nadanie 
zmiennej identyfikowanej przez operator CURRENT tej samej war- 
tości jaką ma zmienna identyfikowana przez operator CONTEXT. Ma 
to taki skutek, że zarówno wyszukiwanie operatorów w słowniku, jak 
i umieszczanie w nim nowych definicji, będzie dotyczyć tego samego 
podsłownika. DEFINITIONS jest operatorem biernym, zdefiniowa- 
nym za pomocą kompilatora : (dwukropek) 

: DEFINITIONS CONTEXT Q CURRENT !; 


(cb -—— dt) 

(cb --f) 
Wykonanie operacji DIGIT (digit) powoduje rozstrzygnięcie, czy mniej 
znaczący bajt danej c zawiera znak w kodzie ASCII, będący poprawną 
cyfrą przy podstawie b. W przypadku twierdzącym — na stosie 
parametrów — dane c i b zostaną zastąpione daną d o wartości 
liczbowej cyfry i daną t o wartości 1. W przypadku przeczącym, dane 
te zostaną zastąpione daną f o wartości 0. DIGIT jest operatorem 
biernym, zdefiniowanym w kodzie maszynowym. 


DLITERAL (dv — — ) 


Wykonanie operacji DLITERAL (D-literal) powoduje umieszczenie 
w słowniku takich wskazań operatorów LIT oraz danych, aby podczas 
przyszłego interpretowania definicji spowodowało to umieszcze- 
nie — na stosie parametrów — danej dwusłowowej dv. Zinterpretowa- 
nie operacji DLITERAL w stanie wykonywania jest równoważne 
wykonaniu operacji pustej. DLITERAL jest operatorem czynnym, 
zdefiniowanym za pomocą kompilatora : (dwukropek) 
: DLITERAL STATE Q 

IF 

SWAP LITERAL LITERAL 
THEN 
; IMMEDIATE 
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DMINUS (da — — db) 


DO 


Wykonanie operacji DMINUS (D-minus) powoduje zastąpienie — na 
stosie parametrów — danej dwusłowowej da taką daną dwusłowową 
db, że db = —da. DMINUS jest operatorem biernym, zdefiniowanym 
w kodzie maszynowym. 


(——a3) 

Wykonanie operacji DO (do) zaczyna się od upewnienia, że interpreter 
znajduje się w stanie definiowania. Jeśli tak nie jest, to nastąpi 
wykonanie czynności przedstawionych w opisie operatora ?COMP. 
W przeciwnym razie w słowniku zostanie umieszczone wskazanie 
operatora (DO), a następnie na stosie parametrów zostanie umieszczo- 
ny adres pierwszego wolnego bajtu w słowniku oraz dana o wartości 3. 
DO jest operatorem czynnym, zdefiniowanym za pomocą kompilatora 
; (dwukropek) 

: DO COMPILE (DO) HERE 3 ; IMMEDIATE 


DOES>  ( —— ) por. opis operacji <BUILDS 


DP 


DPL 


Wykonanie operacji DOES> (does) podczas interpretowania definicji 
pewnego kompilatora powoduje dokonanie zmian w definicji właśnie 
definiowanego operatora. Zmiany dotyczą pola kodu i pola para- 
metrów. W polu kodu zostanie umieszczony adres programu w kodzie 
maszynowym, wyszczególnionego w definicji operatora DOES>, a w 
pierwszym słowie pola parametrów zostanie umieszczony adres bajtu 
następującego bezpośrednio po wskazaniu omawianego operatora 
DOES>. DOES> jest operatorem biernym; zdefiniowanym za po- 
mocą kompilatora : (dwukropek) 

: DOES> R> LATEST PFA ! ;CODE kod-maszynowy 
(kod-maszynowy reprezentuje program w kodzie maszynowym, 
którego adres zostanie umieszczony w pierwszym słowie pola pa- 
rametrów każdego operatora skompilowanego z użyciem konstrukcji 
<BUILDS .. DOES> lub jej równoważnej). 


(——a) 


Wykonanie operacji DP (D-P) powoduje umieszczenie — na stosie 
parametrów — adresu a zmiennej określającej adres pierwszego 
wolnego bajtu słownika. DP jest operatorem biernym, zdefiniowanym 
za pomocą kompilatora USER. 


(——a) 
Wykonanie operacji DPL (D-P-L) powoduje umieszczenie — na stosie 
parametrów — adresu a zmiennej słowowej określającej liczbę cyfr za 
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DRO 


DR1 


DROP 


DUP 


ELSE 
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ostatnią kropką występującą po cyfrach właśnie wprowadzonej liczby 
lub jej części. DPL jest operatorem biernym, zdefiniowanym za 
pomocą kompilatora USER. 

(--) 

Wykonanie operacji DRO czyni stację numer O stacją bieżącą i po- 
woduje nadanie zmiennej identyfikowanej przez operator OFFSET 
numeru bewzględnego, jaki ma zerowy blok dysku nr 0. DRO jest 
operatorem biernym, zdefiniowanym za pomocą kompilatora : (dwu- 
kropek) 

: DRO dr—0—beg OFFSET !; 

(przyjęto, że dr—0—beg jest odpowiednio dobraną stałą). 

(--) 

Wykonanie operacji DR1 czyni stację numer O stacją bieżącą i powo- 
duje nadanie zmiennej identyfikowanej przez operator OFFSET nu- 
meru bezwzględnego, jaki ma zerowy blok dysku nr 1. DRO jest 
operatorem biernym, zdefiniowanym za pomocą kompilatora : (dwu- 
kropek) 

: DR1I dr—1—beg OFFSET !; 

(przyjęto, że dr—1—beg jest odpowiednio dobraną stałą). 


(v0-——) 
Wykonanie operacji DROP (drop) powoduje usunięcie — ze stosu 
parametrów — danej v. DROP jest operatorem biernym, zdefiniowa- 
nym w kodzie maszynowym. 
(v0——vv) 
Wykonanie operacji DUP (dupe) powoduje powielenie — na stosie 
parametrów — danej v. DUP jest operatorem biernym, zdefiniowanym 
w kodzie maszynowym. 


(an2 —— b 2 ) por. opis operacji IF 

Wykonanie operacji ELSE (else) zaczyna się od upewnienia, że dana n2 
ma wartość 2. Jeśli tak nie jest, to operacja ELSE jest użyta 
w niepoprawnym kontekście. Spowoduje to wykonanie czynności 
przedstawionych w opisie operatora ?PAIRS. W przeciwnym razie 
w słowniku zostanie umieszczone wskazanie operatora BRANCH oraz 
dana o wartości zero. Następnie pod adresem a zostanie umieszczony 
adres względny pierwszego wolnego bajtu słownika, a na stosie 
parametrów pozostaną: adres b wspomnianej wyżej danej o wartości 
0 oraz dana o wartości 2. ELSE jest operatorem czynnym, zdefinio- 
wanym za pomocą kompilatora : (dwukropek) 

: ELSE 2 ?PAIRS COMPILE BRANCH HERE 0 , 

SWAP 2 COMPILE ENDIF 2 ; IMMEDIATE 


EMIT 
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(c--) 
Wykonanie operacji EMIT (emit) powoduje wyprowadzenie znaku 
stanowiącego mniej znaczący bajt danej c. Ponadto nastąpi zwiększe- 
nie o 1 zmiennej identyfikowanej przez operator OUT. EMIT jest 
operatorem biernym, zdefiniowanym za pomocą kompilatora : (dwu- 
kropek) 


: EMIT pemit 1 OUT +!; 

(przyjęto, że wykonanie operacji pemit spowoduje zdjęcie danej ze 
stosu parametrów i wyprowadzenie znaku stanowiącego jej mniej 
znaczący bajt. pemit jest operatorem zdefiniowanym w kodzie maszy- 
nowym). 


EMPTY-BUFFERS  ( —-— ) 


Wykonanie operacji EMPTY-BUFFERS (empty-buffers) powoduje 
wyzerowanie wszystkich buforów dyskowych w pamięci operacyjnej. 
Powoduje to m.in. ustawienie na wartość 0 wszystkich bitów update 
tych buforów. EMPTY-BUFFERS jest operatorem biernym, zdefinio- 
wanym za pomocą kompilatora : (dwukropek) 

: EMPTY —BUFFERS FIRST LIMIT OVER — ERASE ; 


ENCLOSE (ac—— anl n2 n3 ) 


END 


Wykonanie operacji ENCLOSE (enclose) powoduje rozpatrzenie ciągu 
znaków znajdującego się w pamięci operacyjnej pod adresem a. Ciąg 
ten jest analizowany bajt po bajcie i porównywany z dolnym bajtem 
danej c, który jest uznawany za ogranicznik. W następstwie tego 
porównania dana c zostanie zastąpiona danymi nl, n2 i n3 stano- 
wiącymi adresy względne (liczone względem adresu a) o następującej 


interpretacji: 

nl — adres względny pierwszego znaku, który nie jest ograniczni- 
kiem, 

n2 — adres względny pierwszego ogranicznika następującego po 
ciągu znaków, z których żaden nie jest ogranicznikiem, 

n3 — adres względny pierwszego znaku, którego jeszcze nie rozpa- 
trywano. 


ENCLOSE jest operatorem biernym, zdefiniowanym w kodzie ma- 
szynowym. 


an —— ) 
Wykonanie operacji END (end) jest równoważne wykonaniu operacji 
UNTIL. END jest operatorem czynnym, zdefiniowanym za pomocą 
kompilatora : (dwukropek) 
: END [COMPILE] UNTIL ; IMMEDIATE 
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(an2 —— ) por. opis operacji IF, ELSE 
Wykonanie operacji ENDIF (endif) zaczyna się od upewnienia, że dana 
n2 ma wartość 2. Jeśli tak nie jest, to operacja ENDIF jest użyta 
w niepoprawnym kontekście. Spowoduje to wykonanie czynności 
przedstawionych w opisie operatora ?PAIRS. W przeciwnym razie 
słowo występujące pod adresem a zostanie zastąpione adresem 
względnym pierwszego wolnego bajtu w słowniku. ENDIF jest opera- 
torem czynnym, zdefiniowanym za pomocą kompilatora : (dwukropek) 
: ENDIF ?COMP 2 ?PAIRS HERE OVER — 

SWAP ! ; IMMEDIATE 


(an --—) 
Wykonanie operacji ERASE (erase) powoduje wypełnienie bajtami 
o wartości O pola n bajtów zaczynającego się od adresu a. ERASE jest 
operatorem biernym, zdefiniowanym za pomocą kompilatora : (dwu- 
kropek) 
: ERASE 0 FILL ; 


ERROR (n——ib) 


Wykonanie operacji ERROR (error) ma za zadanie wyprowadzenie 
komunikatu o zaistniałym błędzie nr n, jednak sposób zrealizowania 
tego zadania zależy od bieżącej wartości zmiennej WARNING. Jeśli 
WARNING ma wartość ujemną, to poza wyprowadzeniem komuni- 
katu nastąpi wykonanie operacji (ABORT). W przeciwnym razie, 
zamiast niej zostanie wykonana operacja QUIT. W tym drugim 
przypadku dana n zostanie zastąpiona — na stosie parametrów — 
— parą danych i oraz b, określających odpowiednio bieżące wartości 
zmiennych identyfikowanych przez operatory IN i BLK. Dane te 
umożliwiają bliższą identyfikację miejsca i przyczyny zaistnienia błędu. 
W typowych implementacjach przewidziano następujące komunikaty 
o błędach: 
0 — 

brak definicji operatora 
1 EMPTY STACK 

pusty stos parametrów 
2 DICTIONARY FULL 

brak miejsca w słowniku 
3 HAS INCORRECT ADDRESS MODE 

niepoprawny tryb adresowania 
4 ISNT UNIQUE 

redefinicja operatora 
6 DISC RANGE? 
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19 


20 


21 


22 


23 


24 


operacja dotycząca nieistniejącego bloku 

FULL STACK 

przepełnienie stosu 

DISC ERROR 

błąd współpracy z dyskiem 

FORTH INTEREST GROUP 

komunikat podczas wykonywania operacji TRIAD 
COMPILATION ONLY, USE IN DEFINITION 

próba zinterpretowania operacji dopuszczalnej jedynie w stanie 
definiowania 

EXECUTION ONLY . 

próba zinterpretowania operacji dopuszczalnej jedynie w stanie 
wykonywania 

CONDITIONALS NOT PAIRED 

błędnie utworzona instrukcja strukturalna 


DEFINITION NOT FINISHED 

zmiana rozmiaru stosu parametrów podczas definiowania opera- 
tora 

IN PROTECTED DICTIONARY 

naruszenie ograniczeń narzuconych przez wykonanie operacji 
FENCE 

USE ONLY WHEN LOADING 

próba wykonania operacji dopuszczalnej jedynie podczas inter- 
pretowania strumienia wejściowego pochodzącego z dysku 
OFF CURRENT EDITING SCREEN 

sygnalizacja edytora 

DECLARE VOCABULARY 

próba wykonania operacji FORGET w sytuacji, gdy zmienne 
identyfikowane przez operatory CONTEXT i CURRENT mają 
różne wartości. 


ERROR jest operatorem biernym, zdefiniowanym za pomocą kompi- 
latora : (dwukropek) 
: ERROR WARNING Q 0 


EXECUTE 


IF (ABORT) THEN 
HERE COUNT TYPE .*? MESSAGE SP! 
IN Q BLK Q QUIT; 


(a ——) 


Wykonanie operacji EXECUTE (execute) powoduje wykonanie ope- 
racji, której pole kodu znajduje się pod adresem a. EXECUTE jest 
operatorem biernym, zdefiniowanym w kodzie maszynowym. 
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EXPECT (an —— ) 


Wykonanie operacji EXPECT (expect) powoduje wprowadzenie z 
klawiatury terminala nie więcej niż n znaków i umieszczenie ich w polu 
pamięci operacyjnej, począwszy od adresu a. Wprowadzanie jest 
kończone na podstawie licznika znaków albo po napotkaniu znaku cr 
(powrót karetki). Po ostatnim wprowadzonym znaku są umieszczane 
znaki o kodzie 0. EXPECT jest operatorem biernym, zdefiniowanym 
za pomocą kompilatora : (dwukropek) 

: EXPECT OVER + OVER 


DO 
KEY DUP 0E +ORIGIN Q = 
IF 
DROP 08 OVER I = DUP 
R> 2 — + >R — 
ELSE 
DUP OD = 
IF 
LEAVE DROP BL 0 
ELSE 
DUP 
THEN 
I C!'»eoI1+ ! 
THEN 
EMIT 
LOOP 
DROP ; 
FENCE (—— a) 


FILL 


FIRST 


Wykonanie operacji FENCE (fence) powoduje zabezpieczenie przed 
usunięciem za pomocą operacji FORGET, tych definicji operatorów, 
które zajmują w słowniku miejsce poniżej adresu a. FENCE jest 
operatorem biernym, zdefiniowanym za pomocą kompilatora USER. 


(anc —— ) 

Wykonanie operacji FILL (fill) powoduje umieszczenie w polu pa- 
mięci operacyjnej, zaczynającym się od adresu a, n znaków identy- 
cznych ze znakiem reprezentowanym w dolnym bajcie danej c. FILL 
jest operatorem biernym, zdefiniowanym w kodzie maszynowym. 


(--a) 
Wykonanie operacji FIRST (first) powoduje umieszczenie — na stosie 
parametrów — adresu a pierwszego bajtu pierwszego bufora dysko- 
wego znajdującego się w pamięci operacyjnej. FIRST jest operatorem 
biernym, zdefiniowanym za pomocą kompilatora CONSTANT. 


FLD 
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(--—a) 

Wykonanie operacji FLD (F-L-D) powoduje umieszczenie — na stosie 
parametrów — adresu a zmiennej określającej rozmiar pola ze- 
wnętrznego zajmowanego przez liczbę wyprowadzaną za pomocą 
wzorców. FLD jest operatorem biernym, zdefiniowanym za pomocą 
kompilatora USER. Operator FLD wychodzi z użycia i nie powinien 
być już używany. 


FLUSH (——) 


Wykonanie operacji FLUSH (flush) powoduje wyprowadzenie do 
pamięci dyskowej tych wszystkich buforów znajdujących się w pamięci 
operacyjnej, które mają ustawiony bit update. FLUSH jest operatorem 
biernym, zdefiniowanym za pomocą kompilatora : (dwukropek) 
: FLUSH NBUF 1+ 0 

DO 

0 BUFFER DROP 
LOOP ; 


FORGET ( --) 


Wykonanie operacji FORGET (forget) powoduje usunięcie (ze słowni- 
ka) definicji operatora o nazwie identycznej z nazwą najbliższego słowa 
występującego w strumieniu wejściowym, jak również usunięcie wszy- 
stkich definicji następujących po niej. W celu zabezpieczenia się przed 
omyłkowym usunięciem definicji pewnych operatorów brana jest pod 
uwagę bieżąca wartość zmiennej FENCE. FORGET jest operatorem 
biernym, zdefiniowanym za pomocą kompilatora : (dwukropek) 
: FORGET CURRENT Q CONTEXT Q — 18 ?ERROR 
[COMPILE] * DUP FENCE Q < 15 ?ERROR 
DUP NFA DP ! ELFA Q CURRENT Q !; 
Przedstawiona definicja operatora FORGET ma tę poważną wadę, że 
nie uwzględnia podziału słownika na podsłowniki, co może powodo- 
wać, iż użycie jej w złożonym kontekście spowoduje niekontrolowane 
załamanie się interpretacji. Dla porównania można za [7] podać 
definicję operatora FORGET nie obarczoną tym zagrożeniem 


: FORGET [COMPILE] * NFA DUP FENCE Q U< 

15 ?ERROR >R VOC—LINK Q 
BEGIN 

R OVER U< WHILE 

[COMPILE] FORTH DEFINITIONS Q 

REPEAT 
DUP VOC—LINK ! 
BEGIN 

DUP 4 — 
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BEGIN 
PFA LFA Q DUP R U< 
UNTIL 
OVER 2 — ! Q —DUP 0= 
UNTIL 
R> DP !; 


FORTH (——) 


HERE 


HEX 


HLD 


HOLD 


Wykonanie operacji FORTH (forth) powoduje, że bieżącym podsłow- 
nikiem wyszukiwania staje się podsłownik FORTH. FORTH jest 
operatorem czynnym, zdefiniowanym za pomocą kompilatora VOCA- 
BULARY 

VOCABULARY FORTH IMMEDIATE 


(—-a) 
Wykonanie operacji HERE (here) powoduje umieszczenie — na stosie 
parametrów — adresu a pierwszego wolnego bajtu w słowniku. HERE 
jest operatorem biernym, zdefiniowanym za pomocą kompilatora 
; (dwukropek) 
: HERE DP Q ; 


(--) 

Wykonanie operacji HEX (hex) powoduje nadanie zmiennej identyfi- 
kowanej przez operator wartości 16. Powoduje to, że najbliższe 
konwersje liczb podczas wprowadzania i wyprowadzania będą wyko- 
nywane przy podstawie 16. HEX jest operatorem biernym, zdefiniowa- 
nym za pomocą kompilatora : (dwukropek) 

: HEX 10 BASE !; 


(—- a) 
Wykonanie operacji HLD (H-L-D) powoduje umieszczenie — na 
stosie parametrów — adresu zmiennej słowowej określającej adres 
ostatniego znaku umieszczonego w buforze liczby. HLD jest operato- 
rem biernym, zdefiniowanym za pomocą kompilatora USER. 


(c--) 
Wykonanie operacji HOLD (hold) powoduje umieszczenie znaku 
reprezentowanego w dolnym bajcie danej c, w kolejnym bajcie pola 
liczby. HOLD jest operatorem biernym, zdefiniowanym za pomocą 
kompilatora : (dwukropek) 
: HOLD —1 HLD +! HLDQC!; 


I (—— » ) por. opis operacji (DO) 
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Wykonanie operacji I (I) powoduje umieszczenie — na stosie para- 
metrów — danej v o wartości równej bieżącej wartości zmiennej 
sterującej najwęższego cyklu zainicjowanego w następstwie wykonania 
operacji (DO), a obejmującego rozpatrywane odwołanie do operatora 
I. I jest operatorem biernym, zdefiniowanym w kodzie maszynowym. 


ID. (a —— ) 

Wykonanie operacji ID. (I-D-dot) powoduje wyprowadzenie nazwy 
(zakończonej spacją) tego operatora, którego pole nazwy rozpoczyna 
się od adresu a. Jeśli licznik znaków nazwy operatora, występujący 
w polu nazwy, ma wartość większą niż bieżąca wartość zmiennej 
WIDTH, to po obciętej nazwie występują dodatkowe spacje. ID. jest 
operatorem biernym, zdefiniowanym za pomocą kompilatora : (dwu- 
kropek) 
: ID. PAD 20 5F FILL DUP PFA LFA OVER — 

PAD SWAP CMOVE PAD COUNT 1F AND 

TYPE SPACE .; 


IF (——a2) 

Wykonanie operacji IF (if) powoduje umieszczenie w słowniku wska- 
zania operatora OBRANCH, a za nim danej słowowej o wartości 
0 (dana ta zostanie zmieniona podczas interpretowania związanej z IF 
operacji ELSE, THEN albo ENDIF). Na stosie parametrów zostanie 
umieszczony adres a, wspomnianej danej o wartości (0, a następnie 
dana o wartości 2. IF jest operatorem czynnym, zdefiniowanym za 
pomocą kompilatora : (dwukropek) 

: IF COMPILE OBRANCH HERE 0, 

2; IMMEDIATE 


IMMEDIATE ( —— ) 

Wykonanie operacji IMMEDIATE (immediate) powoduje zanegowa- 
nie bitu immediate występującego w polu nazwy tego operatora, który 
jest zdefiniowany jako ostatni w podsłowniku określonym przez 
zmienną identyfikowaną przez operator CURRENT. IMMEDIATE 
jest operatorem biernym, zdefiniowanym za pomocą kompilatora 
: (dwukropek) 

: IMMEDIATE LATEST 40 TOGGLE ; 


IN (—— a) 
Wykonanie operacji IN (in) powoduje umieszczenie — na stosie 
parametrów — adresu a zmiennej określającej adres względny bajtu 
wyznaczony względem początku tego bufora, z którego pochodzi 
strumień wejściowy. Buforem takim może być bufor dyskowy albo 
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bufor tekstu. Bezpośrednio po wykonaniu operacji QUERY, LOAD 


oraz ——> rozpatrywany adres względny ma wartość 0. IN jest 
operatorem biernym, zdefiniowanym za pomocą kompilatora USER. 
(ab —-—) 


Wykonanie operacji INDEX (index) powoduje wyprowadzenie 
pierwszych wierszy ekranów o numerach od a do b. Wykonywanie tej 
operacji może zostać przerwane przez naciśnięcie dowolnego klawisza 
klawiatury. INDEX jest operatorem biernym, zdefiniowanym za po- 
mocą kompilatora : (dwukropek) 
: INDEX OC EMIT CR 1+ SWAP 
DO 
CR I 3 .R SPACE 0 I .LINE 
?TERMINAL IF LEAVE THEN 
LOOP ; 


INTERPRET ( ——) 


Wykonanie operacji INTERPRET (interpret) powoduje podjęcie inter- 
pretacji strumienia wejściowego. Jeśli wartością zmiennej identyfiko- 
wanej przez operator BLK jest 0, to strumień wejściowy pochodzi 
z klawiatury. W przeciwnym razie pochodzi z bloku dyskowego 
o numerze określonym przez wspomnianą zmienną. INTERPRET jest 
operatorem biernym, zdefiniowanym za pomocą kompilatora : (dwu- 
kropek) 
INTERPRET BEGIN 
— FIND 
IF 
STATE Q < 
IF 
CFA , 
ELSE 
CFA EXECUTE 
THEN 


STACK 
ELSE 
HERE NUMBER DPL Q i+ 
LF 
[COMPILE] DLITERAL 
ELSE 


DROP [COMPILE] LITERAL 
THEN 
STACK 
THEN 
AGAIN ; 


KEY 
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(7-0) 

Wykonanie operacji KEY (key) powoduje wprowadzenie z klawiatury 
terminala jednego znaku i umieszczenie — na stosie parametrów — 
— takiej danej, której bardziej znaczący bajt ma wartość 0, a mniej 
znaczący stanowi reprezentację wprowadzonego znaku. KEY jest 
operatorem biernym, zdefiniowanym w kodzie maszynowym. 


LATEST ( —-— a) 


LEAVE 


LFA 


LIMIT 


LIST 


Wykonanie operacji LATEST (latest) powoduje umieszczenie — na 
stosie parametrów — adresu a pola nazwy tego operatora, który jest 
zdefiniowany jako ostatni w podsłowniku określonym przez zmienną 
CURRENT. LATEST jest operatorem biernym, zdefiniowanym za 
pomocą kompilatora : (dwukropek) 

: LATEST CURRENT Q Q; 


( —— ) por. opis operacji (DO) 
Wykonanie operacji LEAVE (leave) powoduje taką zmianę para- 
metrów cyklu zainicjowanego w następstwie wykonania operacji (DO), 
aby podczas najbliższego rozstrzygania o kontynuowaniu cyklu nastą- 
piło jego zakończenie. Wykonanie operacji LEAVE nie ma wpływu na 
wartość zmiennej sterującej cyklu. LEAVE jest operatorem biernym, 
zdefiniowanym w kodzie maszynowym. 


(p—-c) 

Wykonanie operacji LFA (L-F-4) powoduje zastąpienie — na stosie 
parametrów — adresu p pola parametrów operatora adresem c pola 
kodu tego operatora. LFA jest operatorem biernym, zdefiniowanym za 
pomocą kompilatora : (dwukropek) 

: LFA 04 — ; 


(—-—a) 
Wykonanie operacji LIMIT (limit) powoduje umieszczenie — na stosie 
parametrów — adresu a pierwszego bajtu następującego po ostatnim 
buforze dyskowym w pamięci operacyjnej. LIMIT jest operatorem 
biernym, zdefiniowanym za pomocą kompilatora CONSTANT. 


(n--) 
Wykonanie operacji LIST (list) powoduje wyprowadzenie zawartości 
ekranu o numerze n. LIST jest operatorem biernym, zdefiniowanym za 
pomocą kompilatora : (dwukropek) 
: LIST DECIMAL CR DUP SCR ! 

. SCR = . "100 

DO 
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CR I 3 .R SPACE I SCR Q .LINE 
LOOP 
CR ; 


LIT (——v) 
Wykonanie operacji LIT (lit) powoduje umieszczenie — na stosie 
parametrów — danej v identycznej z daną następującą po wskazaniu 
operatora LIT. LIT jest operatorem biernym, zdefiniowanym w kodzie 
maszynowym. 


LITERAL (v —— ) 
Wykonanie operacji LITERAL (literal) powoduje umieszczenie w 
słowniku wskazania operatora LIT, a bezpośrednio za nim danej 
słowowej v. LITERAL jest operatorem czynnym, zdefiniowanym za 
pomocą kompilatora : (dwukropek) 
: LITERAL STATE Q 
IF COMPILE LIT , THEN 


; IMMEDIATE 
LOAD (n —-—) 
Wykonanie operacji LOAD (load) powoduje zinterpretowanie ekranu 
o numerze n. Jeśli ostatnim operatorem takiego ekranu jest — — >, to 


nastąpi także zinterpretowanie ekranu n+1 itd. LOAD jest opera- 
torem biernym, zdefiniowanym za pomocą kompilatora : (dwukropek) 
: LOAD BLK Q >RINQ >ROIN! 

B/SCR + BLK ! INTERPRET 

R> IN! R> BLK !; 


LOOP (a n3 —— ) 

Wykonanie operacji LOOP (loop) zaczyna się od upewnienia, że dana 
n3 ma wartość 3. Jeśli tak nie jest, to operacja LOOP jest użyta 
w niepoprawnym kontekście. Spowoduje to wykonanie czynności 
przedstawionych w opisie operatora ?PAIRS. W przeciwnym razie 
w słowniku zostanie umieszczone wskazanie operatora (LOOP), a za 
nim adres względny tego operatora, który został umieszczony w sło- 
wniku pod adresem a. LOOP jest operatorem biernym, zdefiniowanym 
za pomocą kompilatora : (dwukropek) 

: LOOP 3 ?PAIRS COMPILE (LOOP) 

BACK ; IMMEDIATE 


M: (ab —— dv) 
Wykonanie operacji Mx (M-star) powoduje zastąpienie — na stosie 
parametrów — danych słowowych a i b ich dwusłowowym iloczynem 
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dv. Mx jest operatorem biernym, zdefiniowanym za pomocą kompila- 
tora : (dwukropek) 
: Mx OVER OVER XOR >R ABS 

SWAP ABS Ur R> D+— ; 


M/ (dva —— rq) 
Wykonanie operacji M/ (M-slash) powoduje zastąpienie — na stosie 
parametrów — danej dwusłowowej dv i danej słowowej a parą danych 
r1q, tak dobranych, że q = dv/a, zaś r jest resztą z dzielenia dv przez 
a. M/ jest operatorem biernym, zdefiniowanym za pomocą kompilato- 
ra : (dwukropek) 
: M/ OVER >R >R DABS R ABS U/ 

R> R XOR +-— SWAPR> +— SWAP; 


M/MOD  (dva —— r dą ) 
Wykonanie operacji M/MOD (M-slash-mod) powoduje zastąpie- 
nie — na stosie parametrów — danej dwusłowowej bez znaku dv 


i danej słowowej bez znaku a parą danych bez znaku r i dq, tak 
dobranych, że dq = dv /a, zaś r jest resztą z dzielenia dv przez a. 
M/MOD jest operatorem biernym, zdefiniowanym za pomocą kom- 
pilatora : (dwukropek) 

: M/MOD >R 0 R UW/ R> SWAP >RU/R>; 


MAX (ab —— v) 

Wykonanie operacji MAX (max) powoduje zastąpienie — na stosie 
parametrów — danych a i b większą z tych danych v. MAX jest 
operatorem biernym, zdefiniowanym za pomocą kompilatora : (dwu- 
kropek) 
: MAX OVER OVER < 

IF SWAP THEN 

DROP ; 


MESSAGE (n —-— ) 

Wykonanie operacji MESSAGE (message) powoduje wyprowadzenie 
komunikatu o numerze n. Postać komunikatu zależy od bieżącej 
wartości zmiennej identyfikowanej przez operator WARNING. Jeśli 
zmienna ta ma wartość O, to komunikat ogranicza się do podania 
numeru n. W przeciwnym razie komunikat ma charakter opisowy 
i pochodzi z ekranów 4 i 5 stacji dyskowej nr 0. MESSAGE jest 
operatorem biernym, zdefiniowanym za pomocą kompilatora : (dwu- 
kropek) 
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MESSAGE WARNING Q 
IF 


—DUP 
IF 
4 OFFSET Q B/SCR / — .LINE 
THEN 
ELSE 
. MSG”. 
THEN ; 
MIN (ab ——v) 
Wykonanie operacji MIN (min) powoduje zastąpienie — na stosie 
parametrów — danych a i b mniejszą z tych danych v. MIN jest 
operatorem biernym, zdefiniowanym za pomocą kompilatora : (dwu- 
kropek) 
: MIN OVER OVER > 
IF SWAP THEN 
DROP ; 
MINUS (a -—— b) 
Wykonanie operacji MINUS (minus) powoduje zastąpienie — na 
stosie paramerów — danej a daną b = —a. MINUS jest operatorem 
biernym, zdefiniowanym w kodzie maszynowym. 
MOD (ab —— r) 
Wykonanie operacji MOD (mod) powoduje zastąpienie — na stosie 
parametrów — danych a i b daną r o wartości równej reszcie 
z dzielenia a przez b. MOD jest operatorem biernym, zdefiniowanym 
za pomocą kompilatora : (dwukropek) 
: MOD /MOD DROP ; 
MON (—-—) 
Wykonanie operacji MON (mon) powoduje zakończenie interpretacji 
i powrót do systemu operacyjnego. W systemie CP/M operacja MON 
występuje pod nazwą BYE. MON jest operatorem biernym, zdefinio- 
wanym w kodzie maszynowym. 
NFA (p——n) 


Wykonanie operacji NFA (N-F-A) powoduje zastąpienie — na stosie 
parametrów — adresu p pola parametrów operatora, adresem n pola 
nazwy tego operatora. NFA jest operatorem biernym, zdefiniowanym 
za pomocą kompilatora : (dwukropek) 

: NFA 5 — —1 TRAVERSE ; 
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NUMBER (a —— dv) 


Wykonanie operacji NUMBER (number) powoduje konwersję liczby, 
zapisanej za pomocą ciągu znaków kodu ASCII, na daną dwusłowową 
dv. Przyjmuje się, że rozpatrywany ciąg znaków jest umieszczony 
w pamięci operacyjnej począwszy od adresu a i rozpoczyna się od 
bajtu określającego długość ciągu poddawanego konwersji. Jeśli w 
rozpatrywanym ciągu znaków występują znaki . (kropka), to pozycja 
ostatniego z takich znaków zostanie zapamiętana w zmiennej identyfi- 
kowanej przez operator DPL. Jeśli wykonanie konwersji okaże się 
niemożliwe, to zostanie wyprowadzony komunikat składający się ze 
znaku zapytania. NUMBER jest operatorem biernym, zdefiniowanym 
za pomocą kompilatora : (dwukropek) 


NUMBER 0 0 ROT DUP 1+ CQ 2D = 
DUP >R + —l1 
BEGIN 
DPL ! (NUMBER) DUP CQ BL — 
WHILE 
DUP CQ 2E — 0 ?ERROR 0 
REPEAT 
DROP R> 
IF 


MINUS 
THEN ; 


OFFSET ( ——- a) 


OR 


OUT 


Wykonanie operacji OFFSET (offset) powoduje umieszczenie — na 
stosie parametrów — adresu a zmiennej określającej bezwzględny 
numer zerowego bloku bieżącej stacji dyskowej. OFFSET jest opera- 
torem biernym, zdefiniowanym za pomocą kompilatora USER. 


(ab—-— c) 
Wykonanie operacji OR (or) powoduje zastąpienie — na stosie 
parametrów — danych a i b ich sumą logiczną c, wyznaczoną 


równolegle na wszystkich odpowiadających sobie parach bitów da- 
nych a i b. OR jest operatorem biernym, zdefiniowanym w kodzie 
maszynowym. 


(—-—a) 

Wykonanie operacji OUT (out) powoduje umieszczenie — na stosie 
parametrów — adresu a zmiennej słowowej zawierającej licznik 
znaków zwiększany każdorazowo o 1 podczas wykonania operacji 
EMIT. OUT jest operatorem biernym, zdefiniowanym za pomocą 
kompilatora USER. 
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(ab —— aba) 
Wykonanie operacji OVER (over) powoduje umieszczenie — na stosie 
parametrów — takiej samej danej słowowej, jaka poprzedza daną 


słowową znajdującą się na szczycie stosu. OVER jest operatorem 
biernym, zdefiniowanym w kodzie maszynowym. 


(-7-a) 

Wykonanie operacji PAD (pad) powoduje umieszczenie — na stosie 
parametrów — adresu bufora tekstu. Należy nadmienić, że bufor ten 
nie zajmuje w pamięci operacyjnej stałego miejsca. Znajduje się on 
w ustalonej odległości od zmieniającego swoje położenie końca słowni- 
ka. PAD jest operatorem biernym, zdefiniowanym za pomocą kompi- 
latora : (dwukropek) 

: PAD HERE 44 + ; 


(n —— p) 

Wykonanie operacji PFA (P-F-4A) powoduje zastąpienie — na stosie 
parametrów — adresu n pola nazwy operatora adresem p jego pola 
parametrów. PFA jest operatorem biernym, zdefiniowanym za po- 
mocą kompilatora : (dwukropek) 

: PFA 1 TRAVERSE 5 + ; 


(—7—a) 
Wykonanie operacji PREV (prev) powoduje umieszczenie — na stosie 
parametrów — adresu a zmiennej słowowej określającej adres ostatnio 
użytego bufora dyskowego w pamięci operacyjnej. Początkową 
wartością tej zmiennej jest adres pierwszego z takich buforów. PREV 
jest operatorem biernym, zdefiniowanym za pomocą kompilatora 
VARIABLE. 


QUERY (-—) 


Wykonanie operacji QUERY (query) powoduje wprowadzenie z kla- 
wiatury, do bufora terminala, nie więcej niż 80 znaków. Wprowadzanie 
jest kończone na podstawie licznika znaków albo po rozpoznaniu 
znaku cr (powrót karetki). Znak cr nie jest umieszczany w buforze 
terminala. Po wprowadzonych znakach w buforze tym jest umieszcza- 
ny znak o kodzie O oraz spacja. Po wykonaniu tych czynności zmienna 
identyfikowana przez operator IN otrzymuje wartość 0. QUERY jest 
operatorem biernym, który może być użyty jedynie w stanie wykony- 
wania. Jest on zdefiniowany za pomocą kompilatora : (dwukropek) 
: QUERY TIB Q 50 EXPECT 0 IN! ; 


QUIT 


Opisy operacji 137 


(--—) 
Wykonanie operacji QUIT (quit) powoduje zaniechanie interpretowa- 
nia bieżącego strumienia wejściowego, wyzerowanie stosu powrotów 
1 podjęcie interpretacji strumienia wejściowego związanego z klawia- 
turą terminala. QUIT jest operatorem biernym, zdefiniowanym za 
pomocą kompilatora : (dwukropek) 


: QUIT 0 BLK ! [COMPILE] [ 
BEGIN 
RP! CR QUERY INTERPRET STATE Q 0= 
IF .” OK” THEN 


R (-——v) 


R+ 


R/W 


AGAIN ; 
Wykonanie operacji R (R) powoduje umieszczenie — na stosie 
parametrów — takiej samej danej słowowej v, jaka występuje na 


szczycie stosu powrotów. R jest operatorem biernym, zdefiniowanym 
za pomocą kompilatora : (dwukropek) 
:R['T-2ALLOT , ] ; —2 ALLOT 

(tzn. wykonanie operacji R ma taki sam skutek jak wykonanie ope- 
racji I). 


(—7—a) 
Wykonanie operacji R4ł (R-hash) powoduje umieszczenie — na stosie 
parametrów — adresu zmiennej a określającej adres kursora wy- 


korzystywanego podczas edycji ekranu. R+k+ jest operatorem biernym, 
zdefiniowanym za pomocą kompilatora USER. 


(anb —— ) 

Wykonanie operacji R/W (R-slash-W) zaczyna się od rozpatrzenia 
wartości danej b. Jeśli dana ta ma wartość O, to będzie realizowane 
wyprowadzanie danych. Jeśli ma wartość różną od zera, to będzie 
realizowane wprowadzanie. Właściwa transmisja polega na przenie- 
sieniu danych między buforem pamięci dyskowej, znajdującym się 
w pamięci operacyjnej pod adresem a, a blokiem w pamięci ze- 
wnętrznej o numerze względnym n. Sposób wykonania operacji R/W 
zależy od właściwości użytego systemu operacyjnego. R/W jest opera- 
torem biernym, zdefiniowanym za pomocą kompilatora : (dwukropek) 


'R/W USE >R SWAP SEC/BLK » 
ROT USE ! SEC/BLK 0 


O 
OVER OVER ts-cał 
IF 
secrd 
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ELSE 
secrd 
THEN 


1+ 80 USE +! 
LOOP 
DROP DROP R> USE!; 


(Przedstawiona implementacja dotyczy środowiska CP/M. Przyjęto, że 
operacja ts-cal realizuje przekształcenie bezwzględnego adresu bloku 
w adres sprzętowy, zaś secrd i secrw realizują odpowiednio wprowa- 
dzenie i wyprowadzenie jednego sektora.) 


(——a) 


Wykonanie operacji RO (R-zero) powoduje umieszczenie — na stosie 
parametrów — adresu a zmiennej słowowej określającej początkowy 
adres szczytu stosu powrotów. RÓ jest operatorem biernym, zdefinio- 
wanym za pomocą kompilatora USER. 


(7-0) 

Wykonanie operacji R> (R-from) powoduje zdjęcie danej słowowej 
v ze stosu powrotów i umieszczenie jej na stosie parametrów. R> jest 
operatorem biernym, zdefiniowanym w kodzie maszynowym. 


REPEAT (anl b n4 —— ) por. opis operacji BEGIN 


ROT 


Wykonanie operacji REPEAT (repeat) zaczyna się od upewnienia, że 
dana nl ma wartość 1. Jeśli tak nie jest, to operacja REPEAT jest 
użyta w niepoprawnym kontekście. Spowoduje to wykonanie czyn- 
ności przedstawionych w opisie operatora ?PAIRS. W  przeci- 
wnym razie w słowniku zostanie umieszczone wskazanie operatora 
BRANCH, a za nim adres względny tego operatora, który został 
umieszczony w słowniku pod adresem a. Następnie odbywa się 
sprawdzenie, że dana n4 ma wartość 4. Jeśli tak nie jest, to operacja 
REPEAT jest użyta w niepoprawnym kontekście, co jak już omawia- 
no, spowoduje wykonanie czynności przedstawionych w opisie opera- 
tora ?PAIRS. W przeciwnym razie pod adresem b zostanie umieszczo- 
ny adres względny pierwszego wolnego bajtu słownika. REPEAT jest 
operatorem czynnym, zdefiniowanym za pomocą kompilatora : (dwu- 
kropek) 

: REPEAT >R >R [COMPILE] AGAIN R> R> 2 — 

[COMPILE] ENDIF ; IMMEDIATE 


(abc —— bca) 
Wykonanie operacji ROT (rote) powoduje zastąpienie — na stosie 
parametrów — danych a, b, c danymi b, c, a. ROT jest operatorem 


RP! 


RPQ 
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biernym, zdefiniowanym za pomocą kompilatora : (dwukropek) 
: ROT >R SWAP >R SWAP; 


(—-) 


Wykonanie operacji RP! (R-P-store) powoduje wyzerowanie stosu 
powrotów. Polega to na przypisaniu zmiennej, wskazującej szczyt tego 
stosu, wartości określonej przez zmienną identyfikowaną przez opera- 
tor RO. RP! jest operatorem biernym, zdefiniowanym w kodzie 
maszynowym. 


(—-—a) 

Wykonanie operacji RPQ (R-P-at) powoduje umieszczenie — na 
stosie parametrów — bieżącego adresu a szczytu stosu powrotów. 
RPQ jest operatorem biernym, zdefiniowanym w kodzie maszyno- 
wym. 


S>D (a —--— db) 


SO 


SCR 


SIGN 


Wykonanie operacji S ->D (single-to-double) powoduje zastąpie- 
nie — na stosie parametrów — danej słowowej a daną słowową db 
o tej samej wartości liczbowej. S ->D jest operatorem biernym, 
zdefiniowanym w kodzie maszynowym. 


—— a) 
Wykonanie operacji SO (S-zero) powoduje umieszczenie — na stosie 
parametrów — adresu a zmiennej określającej początkowy adres 
szczytu stosu parametrów. S0 jest operatorem biernym, zdefiniowanym 
za pomocą kompilatora USER. 


(——a) 

Wykonanie operacji SCR (S-C-R) powoduje umieszczenie — na stosie 
parametrów — adresu a zmiennej słowowej określającej numer 
względny ekranu, którego dotyczyła ostatnio wykonana operacja 
LIST. LIST jest operatorem biernym, zdefiniowanym za pomocą 
kompilatora USER. 


(bdv —— dv ) 
Wykonanie operacji SIGN (sign) powoduje zastąpienie — na stosie 
parametrów — danej słowowej b i danej dwusłowowej dv daną 
dwusłowową dv. Ponadto, jeśli dana b ma wartość ujemną, w buforze 
liczby zostanie umieszczony znak — (minus). SIGN jest operatorem 
biernym, zdefiniowanym za pomocą kompilatora : (dwukropek) 
: SIGN ROT 0< IF 2D HOLD THEN ; 


SMUDGE ( ——) 


Wykonanie operacji SMUDGE (smudge) powoduje zanegowanie bitu 
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smudge w polu nazwy tego operatora, który jest zdefiniowany jako 
ostatni w podsłowniku określonym przez zmienną identyfikowaną 
przez operator CURRENT. SMUDGE jest operatorem biernym, 
zdefiniowanym za pomocą kompilatora : (dwukropek) 

: SMUDGE LATEST 20 TOGGLE ; 


SP! (—-) 
Wykonanie operacji SP! (S-P-store) powoduje wyzerowanie stosu 
parametrów. Polega to na przypisaniu zmiennej wskazującej szczyt 
stosu wartości określonej przez zmienną identyfikowaną przez opera- 
tor S0. SP! jest operatorem biernym, zdefiniowanym w kodzie maszy- 


nowym. 
SPQ (--a) 

Wykonanie operacji SPQ (S-P-fetch) powoduje umieszczenie — na 

stosie parametrów — adresu szczytu stosu parametrów tuż przed 


wykonaniem tej operacji. SPQ jest operatorem biernym, zdefiniowa- 
nym w kodzie maszynowym. 


SPACE ( —— ) 
Wykonanie operacji SPACE (space) powoduje wyprowadzenie jednej 
spacji. SPACE jest operatorem biernym, zdefiniowanym za pomocą 
kompilatora : (dwukropek) 
: SPACE BL EMIT ; 


SPACES (n —— ) 
Wykonanie operacji SPACES (spaces) powoduje wyprowadzenie n 
spacji. SPACES jest operatorem biernym, zdefiniowanym za pomocą 
kompilatora : (dwukropek) 
: SPACES 0 MAX —DUP 


IF 
0 DO SPACE LOOP 
THEN ; 
STATE ( —— a) 
Wykonanie operacji STATE (state) powoduje umieszczenie — na 


stosie parametrów — adresu a zmiennej określającej stan interpretera. 
Jeśli zmienna ta ma wartość O, to interpreter znajduje się w stanie 
wykonywania. W przeciwnym razie interpreter znajduje się w stanie 
definiowania. STATE jest operatorem biernym, zdefiniowanym za 
pomocą kompilatora USER. 


SWAP (ab —— ba) 
Wykonanie operacji SWAP (swap) powoduje zastąpienie — na stosie 
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operatorów — danych a i b danymi b i a. SWAP jest operatorem 
biernym, zdefiniowanym w kodzie maszynowym. 


TASK (--— ) 
Wykonanie operacji TASK (task) nie ma żadnych skutków. Definicja 
tej operacji jest zazwyczaj umieszczana w słowniku przed wszystkimi 
innymi definicjami. Umożliwia to użycie jej jako argumentu operacji 
FORGET dla przywrócenia początkowego stanu słownika. TASK jest 
operatorem biernym, zdefiniowanym za pomocą kompilatora : (dwu- 
kropek) 
: TASK ; 


THEN  (bn2 —— ) por. opis operacji IF 

Wykonanie operacji THEN (then) zaczyna się od upewnienia, że dana 
n2 ma wartość 2. Jeśli tak nie jest, to operacja THEN jest użyta 
w niepoprawnym kontekście. Spowoduje to wykonanie czynności 
przedstawionych w opisie operatora ?PAIRS. W przeciwnym razie pod 
adresem b zostanie umieszczony adres względny pierwszego wolnego 
bajtu słownika. THEN jest operatorem czynnym, zdefiniowanym za 
pomocą kompilatora : (dwukropek) 

: THEN [COMPILE] ENDIF ; IMMEDIATE 


TIB (—— a) 
Wykonanie operacji TIB (T-I-B) powoduje umieszczenie — na stosie 
parametrów — adresu a zmiennej słowowej określającej adres bufora 
terminala. TIB jest operatorem biernym, zdefiniowanym za pomocą 
kompilatora USER. 


TOGGLE (ab —-— ) 
Wykonanie operacjj TOGGLE (toggle) powoduje zastąpienie danej 
słowowej znajdującej się pod adresem a daną słowową stanowiącą 
różnicę symetryczną tej danej i danej słowowej b. Różnica symetryczna 
jest wyznaczana równolegle na wszystkich parach bitów argumentów 
tej operacji. TOGGLE jest operatorem biernym, zdefiniowanym 
w kodzie maszynowym. 


TRAVERSE (ab ——c) 
Wykonanie operacjj TRAVERSE (traverse) powoduje zastąpie- 
nie — na stosie parametrów — adresu a skrajnego bajtu pola nazwy 
i danej słowowej b adresem drugiego skrajnego bajtu pola nazwy. Jeśli 
dana b ma wartość +1, to przeglądanie pola nazwy odbywa się 
w kierunku adresów wyższych, a jeśli ma wartość — 1, to odbywa się 
w kierunku adresów niższych. TRAVERSE jest operatorem biernym, 
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zdefiniowanym za pomocą kompilatora : (dwukropek) 
: TRAVERSE SWAP 
BEGIN 
OVER + 7F OVER CQ 
UNTIL 
SWAP DROP ; 


TRIAD (n —— ) 
Wykonanie operacji TRIAD (triad) powoduje wyprowadzenie zawar- 
tości trzech ekranów. Wyprowadzanie rozpoczyna się od ekranu, 
którego numer jest podzielny przez 3. Jednym z wyprowadzanych 
ekranów jest ekran o numerze n. TRIAD jest operatorem biernym, 
zdefiniowanym za pomocą kompilatora : (dwukropek) 
: TRIAD A EMIT 3 / 3 * 3 OVER + SWAP 


CR I LIST ?TERMINAL 
IF LEAVE THEN 
LOOP 
CR OF MESSAGE CR ; 


TYPE (an ——) 
Wykonanie operacji TYPE (type) powoduje wyprowadzenie n znaków 
z pola pamięci operacyjnej rozpoczynającego się od adresu a. TYPE 
jest operatorem biernym, zdefiniowanym za pomocą kompilatora 
; (dwukropek) 
: TYPE —DUP 
IF 
OVER + SWAP 
DO 
I CQ EMIT 
LOOP 
ELSE 
DROP 
THEN ; 


U< (ab—-—'t) 
(ab —— ff) 
Wykonanie operacji U< (U-less)j powoduje rozpatrzenie relacji 
a < b dwóch danych słowowych bez znaku. Jeśli relacja ta okaże się 
prawdziwa, to na stosie parametrów dane te zostaną zastąpione daną 
t o wartości 1. W przeciwnym razie zostaną one zastąpione daną 
fo wartości 0. U< jest operatorem biernym, zdefiniowanym w kodzie 
maszynowym. 
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U+ (ab —— dc) 
Wykonanie operacji Ux (U-star) powoduje zastąpienie — na stosie 
parametrów — danych słowowych bez znaku a i b ich iloczynem 


dwusłowowym bez znaku dc. Ux jest operatorem biernym, zdefiniowa- 
nym w kodzie maszynowym. 


U. (v-—-—) 
Wykonanie operacji U. (U-dot) powoduje wyprowadzenie danej słowo- 
wej bez znaku v, jako liczby całkowitej zakończonej jedną spacją. U. 
jest operatorem biernym, zdefiniowanym za pomocą kompilatora 
; (dwukropek) 
:U.0OD.; 


U/ (dab —— rq) 
Wykonanie operacji U/ (U-slash) powoduje zastąpienie — na stosie 
parametrów — danej dwusłowowej bez znaku da oraz danej słowowej 
bez znaku b parą danych r 1 q, tak dobranych, że q = da/b, zaś r jest 
resztą z dzielenia da przez b. U/ jest operatorem biernym, zdefiniowa- 
nym w kodzie maszynowym. 


UNTIL (anl —— ) por. opis operacji BEGIN 
Wykonanie operacji UNTIL (until) zaczyna się od upewnienia, że dana 
nl ma wartość 1. Jeśli tak nie jest, to operacja UNTIL jest użyta 
w niepoprawnym kontekście. Spowoduje to wykonanie czynności 
przedstawionych w opisie operatora ?PAIRS. W przeciwnym razie 
w słowniku zostanie umieszczone wskazanie operatora OBRANCH, 
a za nim adres względny tego operatora, który został umieszczony 
w słowniku pod adresem a. UNTIL jest operatorem czynnym, zde- 
finiowanym za pomocą kompilatora : (dwukropek) 
: UNTIL 1 ?PAIRS COMPILE OBRANCH 

BACK ; IMMEDIATE 


UPDATE (—-—) 
Wykonanie operacjj UPDATE (update) powoduje ustawienie bitu 
update w pierwszym bicie ostatnio użytego bufora dyskowego w pa- 
mięci operacyjnej. UPDATE jest operatorem biernym, zdefiniowanym 
za pomocą kompilatora : (dwukropek) 
: UPDATE PREV Q Q 8000 OR PREV Q !; 


USE (—— a) 
Wykonanie operacji USE (use) powoduje umieszczenie — na stosie 
parametrów — adresu zmiennej słowowej określającej adres tego 


bufora, który zostanie użyty jako następny. USE jest operatorem 
biernym, zdefiniowanym za pomocą kompilatora USER. 
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(a --) 
Wykonanie operacji USER (user) powoduje utworzenie definicji opera- 
tora o nazwie identycznej z nazwą najbliższego słowa występującego 
w strumieniu wejściowym. W polu parametrów tak utworzonej defi- 
nicji zostanie umieszczona dana słowowa a. Dana ta stanowi adres 
względny liczony względem początku obszaru użytkownika (user area). 
Wykonanie operacji określonej przez tak zdefiniowany operator spo- 
woduje umieszczenie — na stosie parametrów — adresu rzeczywistego 
bajtu o adresie względnym a. USER jest operatorem biernym, zdefinio- 
wanym za pomocą operatora : (dwukropek) 
: USER CONSTANT ;CODE kod-maszynowy 
(kod-maszynowy reprezentuje program w kodzie maszynowym, które- 
go adres zostanie umieszczony w polu kodu każdego operatora 
zdefiniowanego za pomocą kompilatora USER. Kod ten jest tak 
dobrany, aby jego wykonanie spowodowało umieszczenie — na stosie 
parametrów — sumy danej słowowej znajdującej się w polu para- 
metrów wspomnianego operatora i adresu początku obszaru użytkow- 
nika.) 


VARIABLE (n ——) 


VLIST 


Wykonanie operacji VARIABLE (variable) powoduje utworzenie defi- 
nicji operatora o nazwie identycznej z nazwą najbliższego słowa 
występującego w strumieniu wejściowym. W polu parametrów tak 
utworzonej definicji zostanie umieszczona dana słowowa n. Dana ta 
stanowi wartość początkową zmiennej identyfikowanej przez właśnie 
utworzony operator. Wykonanie operacji określonej przez taki opera- 
tor spowoduje umieszczenie — na stosie parametrów — adresu 
wspomnianej zmiennej. VARIABLE jest operatorem biernym, zde- 
finiowanym za pomocą kompilatora : (dwukropek) 

: VARIABLE CONSTANT ;CODE kod-maszynowy 
(kod-maszynowy reprezentuje program w kodzie maszynowym, któ- 
rego adres zostanie umieszczony w polu kodu każdego operatora 
zdefiniowanego za pomocą kompilatora VARIABLE. Kod ten jest tak 
dobrany, aby jego wykonanie spowodowało umieszczenie — na stosie 
parametrów — adresu zmiennej słowowej, od której zaczyna się pole 
prametrów wspomnianego operatora.) 

(--) 

Wykonanie operacji VLIST (V-list) powoduje wyprowadzenie nazw 
operatorów zdefiniowanych w bieżącym podsłowniku wyszukiwania 
operatorów oraz w tych wszystkich podsłownikach, którym dany 
słownik jest bezpośrednio lub pośrednio podrzędny. W szczególności 
wykonanie omawianej operacji spowoduje wyprowadzenie nazw wszy- 
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stkich operatorów zdefiniowanych w podsłowniku FORTH. Jeśli 
podczas wyprowadzania nazw zostanie wprowadzony znak z klawia- 
tury, to spowoduje to zakończenie wykonywania operacji VLIST. 
VLIST jest operatorem biernym, zdefiniowanym za pomocą kompila- 
tora : (dwukropek) 


: VLIST 80 OUT ! CONTEXT Q © 
BEGIN 
OUT Q CL > 
IF CR 0 OUT ! THEN 
DUP ID. SPACE PFA LFA Q 
DUP 0= ?TERMINAL OR 
UNTIL 
DROP ; 


VOC-LINK (-—-— a) 
Wykonanie operacji VOC-LINK (voke-link) powoduje umieszcze- 
nie — na stosie parametrów — adresu a zmiennej słowowej, określa- 
jącej adres pola kodu w definicji pseudooperatora, występującej w polu 
parametrów operatora identyfikującego ostatnio utworzony podsło- 
wnik. VOC-LINK jest operatorem biernym, zdefiniowanym za pomo- 
cą kompilatora USER. 


VOCABULARY  ( —-— ) 

Wykonanie operacji VOCABULARY (vocabulary) powoduje utworze- 
nie definicji operatora identyfikującego podsłownik. Nazwa tego 
operatora jest identyczna z nazwą najbliższego słowa występującego 
w strumieniu wejściowym. W polu parametrów tak skompilowanej 
definicji zostanie umieszczone wskazanie pierwszego bajtu ciągu wska- 
zań operatorów 2+, CONTEXT i !, a za nim definicja pseudooperato- 
ra, którego nazwą jest spacja. Wykonanie operacji określonej przez tak 
zdefiniowany operator spowoduje przypisanie zmiennej identyfiko- 
wanej przez operator CONTEXT adresu pola łącznika tego pseudo- 
operatora, który jest zawarty w definicji omawianego operatora. 
VOCABULARY jest operatorem biernym, zdefiniowanym za pomocą 
kompilatora : (dwukropek) 


: VOCABULARY <BUILDS 
A081 , CURRENT Q CFA , 
HERE VOC—LINK Q , VÓC—LINK ! 
DOES> 
2+ CONTEXT ! ; IMMEDIATE 


WARNING (—— a) 
Wykonanie operacjj WARNING (warning) powoduje umieszcze- 
nie — na stosie parametrów — adresu a zmiennej słowowej, której 
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wartość określa sposób reagowania interpretera na błędy. Jeśli za- 
istnieje błąd, a wspomniana zmienna ma wartość ujemną, to nastąpi 
wstrzymanie interpretacji i wykonanie operacji (ABORT). Jeśli zmien- 
na ma wartość nieujemną, to zostanie wyprowadzony komunikat, 
a następnie zostanie wykonana operacja QUIT. Jeśli zmienna ma 
wartość 0, to komunikat zostanie uproszczony do podania numeru 
błędu. WARNING jest operatorem biernym, zdefiniowanym za pomo- 
cą kompilatora USER. 


WHILE (anl —— a 1b4 ) por. opis operacji BEGIN 


Wykonanie operacji WHILE (while) zaczyna się od upewnienia, że 
dana nl ma wartość 1. Jeśli tak nie jest, to operacja WHILE jest użyta 
w niepoprawnym kontekście. Spowoduje to wykonanie czynności 
przedstawionych w opisie operatora ?PAIRS. W przeciwnym razie 
w słowniku zostanie umieszczone wskazanie operatora OBRANCH, 
a za nim dana słowowa o wartości 0. Ponadto, na stosie parametrów 
zostanie umieszczony adres b wspomnianej danej słowowej i dana 
o wartości 4. WHILE jest operatorem czynnym, zdefiniowanym za 
pomocą kompilatora : (dwukropek) 

: WHILE [COMPILE] IF 2+ ; IMMEDIATE 


WIDTH (-—— a) 


WORD 


Wykonanie operacji WIDTH (width) powoduje umieszczenie — na 
stosie parametrów — adresu zmiennej słowowej określającej maksy- 
malną liczbę zapamiętanych w słowniku znaków nazwy operatora. 
Liczba ta nie może przekraczać 31. WIDTH jest operatorem biernym, 
zdefiniowanym za pomocą kompilatora USER. 


(c--) 

Wykonanie operacji WORD (word) zaczyna się od zdefiniowania 
dolnego bajtu danej słowowej c jako ogranicznika. Następnie są 
pomijane znaki ogranicznika występujące w strumieniu wejściowym, 
a znaki następne, poprzedzone jednobajtowym licznikiem znaków, są 
umieszczane w polu rozpoczynającym się od pierwszego wolnego bajtu 
słownika. Wprowadzanie kończy się po napotkaniu ogranicznika, a za 
ostatnim wprowadzonym znakiem zostaje umieszczona przynajmniej 
jedna spacja. Zakończenie wprowadzania znaków ma miejsce także 
wtedy, gdy w strumieniu wejściowym zostanie napotkany znak cr albo 
znak o kodzie 0. WORD jest operatorem biernym, zdefiniowanym za 
pomocą kompilatora : (dwukropek) 


: WORD BLK Q 
I 
BLK Q BLOCK 


XOR 
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ELSE 

TIB Q 
THEN 
IN Q + SWAP ENCLOSE HERE 22 BLANKS 
IN +! OVER — >R R HERE C! + HERE 
1+ R> CMOVE ; 


(ab—— c) 

Wykonanie operacji XOR (X-O-R) powoduje zastąpienie — na stosie 
parametrów — danych słowowych a i b daną słowową c tak dobraną, 
że stanowi ona rezultat różnicy symetrycznej wyznaczonej równolegle 
na wszystkich parach odpowiadających sobie bitów danych a i b. XOR 
jest operatorem biernym, zdefiniowanym w kodzie maszynowym. 


L (--) 


Wykonanie operacji [ (left-bracket) powoduje wprowadzenie interpre- 
tera w stan wykonywania. [ jest operatorem czynnym, zdefiniowanym 
za pomocą kompilatora : (dwukropek) 

: [O STATE ! ; IMMEDIATE 


[COMPILE] (—-—) 


Wykonanie operacji [COMPILE|] powoduje umieszczenie w słowniku 
wskazania operatora o nazwie identycznej z nazwą najbliższego słowa 
występującego w strumieniu wejściowym. Po wykonaniu tej czynności 
wspomniane słowo strumienia wejściowego jest pomijane. [COMPI- 
LE] jest operatorem czynnym zdefiniowanym za pomocą kompilatora 
; (dwukropek) 

: [COMPILE] —FIND 0= 0 ?ERROR DROP 

CFA , ; IMMEDIATE 


| (--) 


Wykonanie operacji |] (right-bracket) powoduje wprowadzenie inter- 
pretera w stan kompilacji. ] jest operatorem czynnym, zdefiniowanym 
za pomocą kompilatora : (dwukropek) 

: ] CO STATE ! ; IMMEDIATE 
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Znaki kodu ASCII 


00 nul 20 spacja 40 Q 60 ' 
01 soh 21! 41A 61 a 
02 stx 22 ” 42 B 62 b 
03 etx 23 +: 43 C 63 c 
04 cot 24 $ 44 D 64 d 
05 enq 25% 45E 65 e 
06 ack 26 £ 46 F 66 [ 
07 bel 27 * 47 G 67 g 
08 bs 28 ( 48 H 68 h 
09 ht 29 ) 49 I 69 i 
OA If ZA * 4A J 6A j 
OB vt 28 + 4B K 68 k 
OC ff 2C , 4C L 6C I 
OD cr 2D — 4D M 6D m 
0E so 2E . 4E N 6E n 
OF si 2F / 4F O 6F o 
10 dle 30 0 60 P 70 p 
11 dcl 31 1 51 Q 71 q 
12 dc2 32 2 52 R 72 r 
13 dc3 33 3 53 S 73 s 
14 dc4 34 4 54 T 74 t 
15 nak 355 5SSU 75 u 
16 syn 36 6 56 V 76 v 
17 etb 37 7 57 W 77 w 
18 can 38 8 58 X 78 x 
19 em 39 9 59 Y 79 y 
1A sub JA : SA Z 7A z 
1B esc 3B ; $B [ 7B ( 
1C fs 3C < SC N 7C 
ID gs 3D = 5D ] 7D ) 
1E rs 3E > SE * 7E — 
1F us 3F ? SF _ 7F del 


Dodatek B 


Rozkazy mikroprocesora 
Intel 8080 


W mikroprocesorze Intel 8080 można wyodrębnić zespół 8-bitowych rejestrów 
oznaczanych literami A, F, B, C, D, E, H, L oraz dwa rejestry 16-bitowe: SP 
i PC. 

Rejestr A jest akumulatorem, F — rejestrem znaczników, PC — liczni- 
kiem rozkazów, a SP — wskaźnikiem stosu. Z punktu widzenia pewnych 
rozkazów pary rejestrów: BC, DE i HL są traktowane jak rejestry dwubajtowe. 
W każdej z takich par drugi z elementów stanowi część mniej znaczącą. 
W podobny sposób można „tworzyć” dwubajtowy rejestr PSW z rejestrów A-F. 

W rejestrze F występują bity, które mogą otrzymywać wartości O ałbo 1 

Z = oznacza, że rezultatem operacji było zero; 

S=|1 oznacza, że najbardziej znaczący bit rezultatu miał wartość 1; 

P=|1 oznacza, że suma modulo 2 bitów rezultatu jest równa zeru; 

C=|1 oznacza, że w następstwie wykonania operacji powstało 

przeniesienie z najbardziej znaczącej pozycji; 

AC =|1 oznacza, że powstało przeniesienie połówkowe, tj. przenie- 
sienie z najbardziej znaczącego bitu dolnej tetrady. 


Przykład 


W celu zilustrowania zasad ustawiania bitów rejestru F, zostanie rozpatrzone 
wykonanie rozkazu dodawania i odejmowania argumentu bezpośredniego zero 
od wyzerowanego akumulatora, tj. wykonanie par rozkazów 

XRA A XRA A 


oraz 
ADI 0 SUI 0 


Jak wynika z dalszego opisu, rozkaz XRA służy do równoległego 
obliczania różnicy symetrycznej, a więc rezultatem XRA A jest ciąg 8 bitów 
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zero, co powoduje następujące ustawienie bitów rejestru F: 

Z=l S=0 P=| C=0 AC=0 

Wykonanie w tej sytuacji rozkazu ADI powoduje zsumowanie dwóch 
bajtów zer i ponowne ustawienie rejestru F na przytoczone uprzednio wartości. 

Inaczej rzecz ma się z rozkazem SUI. Ponieważ odejmowanie w zapisie 
uzupełnieniowym do 2 jest realizowane jako złożenie operacji dodania do 
odjemnej zanegowanego odjemnika i wartości 1, przebieg operacji jest na- 
stępujący: 


00000000  odjemna 


00000000  odjemnik 
00000000  odjemna 
+ 11111II1  zanegowany odjemnik 
+ l wartość 1 
100000000 wynik sumowania 
00000000 rezultat 


Ponieważ rezultat składa się z samych zer, nastąpi ustawienie Z = |, 
S=0(), P=lL. 

Ponieważ powstało przeniesienie z najbardziej znaczącej pozycji rezul- 
tatu wydawałoby się, że nastąpi ustawienie bitu C = 1. W istocie, ponieważ 
w mikroprocesorze Intel 8080 przyjęto, że wykonanie odejmowania powoduje 
zanegowanie bitu C, nastąpi ustawienie € =0. Taki sposób potraktowania 
przeniesienia nie dotyczy natomiast przeniesienia połówkowego, skutkiem 
czego nastąpi ustawienie bitu AC = 1. Ostatecznie, wykonanie rozkazu SUI 
spowoduje w omawianym przypadku następujące ustawienie bitów rejestru F: 

ZŻ=l S=0 P=1 C=0 AC=1 LJ 

W przytoczonych dalej opisach rozkazów użyto zwrotu „aktualizo- 
wany jest rejestr F” dla zwrócenia uwagi, że w następstwie wykonania 
odpowiedniego rozkazu i jego wariantów zostaną ustawione bity Z, S, P, 
C i AC rejestru znaczników. W pozostałych przypadkach bity rejestru F albo 
nie ulegają zmianie, albo zmieniają się tylko niektóre z nich — te, które jawnie 
wymieniono. 

Że względu na to, że przytoczony opis listy rozkazów ma charakter 
referencyjny, zastosowano nieformalną notację, której pewne elementy wyma- 
gają wyjaśnienia 

e symbolem ,, := ” oznaczono przypisanie, a symbolem , :=: 
wymianę zawartości; 

e małą literą d albo s oznaczono dowolny z rejestrów A, B, C, D, H, L, 
a małą literą a oznaczono zmienną znajdującą się w pamięci pod adresem 
a (np. w rozkazie LHLD) albo adres a (np. w rozkazie JMP); 


3» 
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e parą małych liter dd albo ss oznaczono zespół sprzężonych rejestrów 
(np. PSW, HL) — w każdym takim przypadku podając po dwukropku 
dopuszczalne wartości, podstawiane w miejsce wspomnianych liter; 

e małą literą i oznaczono wartość bezpośrednią — jednobajtową, 
a parą liter ii oznaczono wartość bezpośrednią — dwubajtową, chyba że jawnie 
podano inne wymaganie; 

e identyfikatorem carry oznaczono zmienną o wartości równej bitowi 
C rejestru F, a identyfikatorem aux.carry analogiczną zmienną związaną 
z bitem AC; 

e symbolem ,„„a” oznaczono adresowanie pośrednie (np. HL: =:QSP 
opisuje wymianę zawartości rejestru sprzężonego HL i dwubajtowej zmiennej 
spod adresu zawartego w SP); 

e symbolem carry.A oznaczono złączenie bitu C rejestru F i bitów 
akumulatora, od najbardziej znaczącego — A7, do najmniej znaczącego — A0; 

e symbolami rotl i rotr oznaczono operację obrotu — odpowiednio 
w lewo i w prawo. 

Komentarz należy się także operacjom push i pop. Pierwsza z nich 
powoduje odesłanie na stos pary sprzężonych rejestrów — najpierw bardziej 
znaczącego, a następnie mniej znaczącego. Druga wykonuje czynność od- 
wrotną - — zdejmuje parę bajtów ze stosu, umieszczając pierwszy w mniej 
znaczącej, a drugi w bardziej znaczącej części rejestru sprzężonego. 


Rozkazy przesyłania 


MOV — przenieść zawartość 
MOV ds ; d:=s 
MOV M,s; QHL:=s 
MOV dM ; d:=QHL 

e rejestr F nie ulega zmianie. 


MVI — wstaw wartość 
MVI di ; d=i 
MVI Mi ; QHL:=i 
e rejestr F nie ulega zmianie. 


LDA — załaduj bezpośrednio akumułator 
LDA a ; A=a 
e rejestr F nie ulega zmianie 


LDAX — załaduj pośrednio akumulator 
LDAX ss ; A:=Qss ss: B,D 
e rejestr F nie ulega zmianie. 
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LXI — wstaw wartość 
LXI ddiii; dd:=ii 
e rejestr F nie ulega zmianie. 


LHLD — załaduj bezpośrednio HL 
LHLD a ; HL:=a 
e rejestr F nie ulega zmianie. 


STA — zapamiętaj akumulator 
STA a ; a=A 
e rejestr F nie ulega zmianie. 


STAX — zapamiętaj pośrednio akumulator 
STAX dd ; Qdd:=A dd: B,D 
e rejestr F nie ulega zmianie. 


SHLD — zapamiętaj HL bezpośrednio 
SHLD a ; a:=HL 


e rejestr F nie ulega zmianie. 


XCHG — wymień zawartość rejestrów HL i DE 


XCHG ; HL:=:DE 

e rejestr F nie ulega zmianie. 
Arytmetyka 

ADD — dodaj do akumulatora 
ADD s ; A :A+sS 
ADD M ; A5A+QHL 


e aktualizowany jest rejestr F. 


ADI — dodaj do akumulatora wartość stałą 
ADI i ; A:=AHi 
e aktualizowany jest rejestr F. 


ADC — dodaj do akumulatora łącznie z carry 
ADC s  ; A:=A+s+carry 
ADC M ; A:=A+QHL+carry 

e aktualizowany jest rejestr F. 


ACI — dodaj do akumulatora stałą łącznie z carry 
ACI i ; A:=A+i+carry 
e aktualizowany jest rejestr F. 
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DAD — dodaj do HL 
DAD ss ; HL:=HL+ss ss. B,D,H,SP 
e w rejestrze F aktualizowany jest tylko bit C. 


SUB — odejmij od akumulatora 
SUB s ; A: =A—s 
SUB M ; A=A-—QHL 

e aktualizowany jest rejestr F; stan bitu C€ odzwierciedla orzeczenie: 
„odjemna mniejsza od odjemnika” (dla prawdy C=|1, dla fałszu C =0). 


SUI — odejmij od akumulatora stałą 
SUI i ; A zA<i 
e aktualizowany jest rejestr F (z uwagą jak dla rozkazu SUB). 


SBB — odejmij od akumulatora łącznie z carry 
SBB s. ; A: = A—s—carry 
SBB M ; A:=A—QHL—carry 
e aktualizowany jest rejestr F (z uwagą jak dla rozkazu SUB). 


SBI — odejmij od akumulatora stałą łącznie z carry 
SBI i ; A =A-i—carry 
e aktualizowany jest rejestr F (z uwagą jak dla rozkazu SUB). 


Inkrementacja, dekrementacja 


INR — inkrementacja bajtowa 
INR d ; d:=d+1 
INR M ; QHL:=QHL+1 

e aktualizowany jest rejestr F, z wyjątkiem bitu C, który nie ulega 
zmianie. 


INX — inkrementacja dwubajtowa 
INX dd; dd;=dd+1 dd: B,D,H,SP 
e rejestr F nie ulega zmianie. 


DCR — dekrementacja bajtowa 
DCR d ; d:=d—l 
DCR M ; QHL:=(QHL—1 

e aktualizowany jest rejestr F, z wyjątkiem bitu C, który nie ulega 
zmianie. 
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DCX — dekrementacja dwubajtowa 
DCX dd ; dd:=dd—1 dd: B,D,H,SP 
e rejestr F nie ulega zmianie. 


Rozkazy sterujące 


Do kategorii rozkazów sterujących zostały zaliczone przejścia, wywołania, 
powroty z podprogramów i przerwań i zmiany rejestru PC. Dla skrócenia 
opisu, symbolem f oznaczono kryterium wykonania przejścia, wywołania albo 
powrotu. Kryterium takim może być 


Z — zero — jedynkowy bit Z w rejestrze F, 
NZ — not zero — zerowy bit Z w rejestrze F, 
C — carry — jedynkowy bit C w rejestrze F, 
NC — not carry — zerowy bit C w rejestrze F, 
PR — parity even — jedynkowy bit P w rejestrze F, 
PO — parity odd — zerowy bit P w rejestrze F, 
M — minus — jedynkowy bit S w rejestrze F, 
P — plus or zero — zerowy bit S w rejestrze F. 


JMP, J( — rozkazy przejścia 
JMP a ;PC:=a 
JJ a  ;if f then PC: =a 
e rejestr F nie ulega zmianie. 
e przykładem rozkazu J/ jest 
JNZ 5 ; jeśli rejestr F zawiera zerowy bit Z, wykonaj przypisanie 
PC: =S5. 
CALL, Cf — rozkaz wywołania 
CALL a ; push PC, PC: =a 
c a ; if f then CALL a 
e rejestr F nie ulega zmianie. 


RET, Rf — rozkaz powrotu 
RET ; pop PC 
R/ ; if f then RET 

e rejestr F nie ulega zmianie. 


RST — restart (obsłuż przerwanie) 
RST i ; push PC, PC: =8xi (i<7) 
e rejestr F nie ulega zmianie. 


PCHL — zmień rejestr PC 
PCHL  ; PC: =HL 
e rejestr F nie ulega zmianie. 
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Rozkazy stosowe 


PUSH — umieść na stosie 
PUSH ss ; push ss ss; B,D,]H,PSW 
e rejestr F nie ulega zmianie. 


POP — zdejmij ze stosu 
POP dd; pop dd dd: B,D,H,PSW 

e rejestr F nie ulega zmianie, chyba że dd = PSW, kiedy to przybiera 
wartość pochodzącą ze stosu. 


XTHL — wymień HL ze szczytem stosu 
XTHL  ; HL:=:QSP 
e rejestr F nie ulega zmianie. 


SPHL — zmień położenie stosu 
SPHL ; SP:=HL 
e rejestr F nie ulega zmianie. 


Rozkazy logiczne 


ANA — iloczyn logiczny akumulatora 
ANA d ;A:=A and d 
ANA M;A:=A and QHL 

e aktualizowany jest rejestr F z wyjątkiem bitów C i AC, które są 
zerowane. 


ANI — iloczyn łogiczny akumulatora ze stałą 
ANI i ;A:=Aandi 

e aktualizowany jest rejestr F, z wyjątkiem bitów C i AC, które są 
zerowane. 


ORA — suma logiczna akumulatora 
ORA d ;AA=Aoerd 
ORA M;A:=A or QHL 

e aktualizowany jest rejestr F z wyjątkiem bitów C i AC, które są 
zerowane. 


ORI — suma logiczna akumulatora i stałej 
ORI i ;A:= Aori 

e aktualizowany jest rejestr F, z wyjątkiem bitów C i AC, które są 
zerowane. 
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XRA — różnica symetryczna akumulatora 
XRA d;A:=A xor d 
XRA M;A:=A xor QHL 

e aktualizowany jest rejestr F, z wyjątkiem bitów C i AC, które są 
zerowane. 


XRI — różnica symetryczna akumulatora i stałej 
XRI i z;A=Axori 

e aktualizowany jest rejestr F, z wyjątkiem bitów C i AC, które są 
zerowane. 


CMA — negacja akumulatora 
CMA  ; A:=notA 
e rejestr F nie ulega zmianie. 


Porównania 


CMP — porównanie akumulatora 
CMP ss; ? A—ss 
CMP M; ? A—QHL 

e aktualizowany jest rejestr F; w szczególności jeśli A < QHL, to bit 
C otrzymuje wartość 1, a gdy A = QHL to Z otrzymuje wartość 1. 


CPI — porównanie akumulatora ze stałą 
CPIi ;?A-—i 
e aktualizowany jest rejestr F (por. CMP). 


Przesunięcia 


Wszystkie przesunięcia dotyczą tylko akumulatora i są jednokrotne. 

RLC — obrót w lewo z ustawieniem carry 
RLC carry: = A7, rotl A 

e w rejestrze F zmianie ulega tylko bit C, który przyjmuje wartość 
bitu A7. 


RRC — obrót w prawo z ustawieniem carry 
RRC ; carry: = AQ, rotr A 

e w rejestrze F zmianie ulega tylko bit C, który przyjmuje wartość 
bitu AO. 


RAL — obrót w lewo wraz z carry 
RAL ; rotl carry.A 

e w rejestrze F zmianie ulega tylko bit C, który przyjmuje wartość 
bitu A7 (przed obrotem). 
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RAR — obrót w prawo wraz z carry 
RAR ; rotr carry.A 

e w rejestrze F zmianie ulega tylko bit C, który przyjmuje wartość 
bitu AO (przed obrotem). 


Wejście/wyjście 

IN — wprowadzenie z portu 
IN i; A: = port(i) 

e rejestr F nie ulega zmianie. 


OUT — wyprowadzenie do portu 
OUT i; port(i): = A 
e rejestr F nie ulega zmianie. 


Rozkazy różne 


CMC — negacja carry 
CMC ; carry: = not carry 

e w rejestrze F zmianie ulega tylko bit C, który przyjmuje wartość 
zanegowaną. 


STC — ustawienie carry 

STC  ; carry: = 1 
e w rejestrze F zmianie ulega tylko bit C, który przyjmuje wartość 1. 
EI — odblokowanie przerwań 

EI ; enable interrupt 


e rejestr F nie ulega zmianie. 


DI — zablokowanie przerwań 
DI ; disable interrupt 
e rejestr F nie ulega zmianie. 


HLT — czekaj na przerwanie 


HLT ; wait 
e rejestr F nie ulega zmianie. 


NOP — nic nie rób 
NOP ; 
e rejestr F nie ulega zmianie. 
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DAA 


Dodatek B 


DAA — dodaj poprawkę 
if aux.carry or A(3.0) >9 then 


A: =A+6 
IM carry or A(7.4)>9 then 
A: =A+1ó+6 


e aktualizowany jest rejestr F. 
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